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PREFACE 


This  document  provides  information  necessary  to  compile,  task-build, 
execute,  and  debug  a  FORTRAN  IV  program  under  the  RSX-llM  and 
RSX-llM-PLUS  operating  systems.  Chapter  1  describes  the  operational 
procedures.  Chapter  2  provides  information  about  the  Object  Time 
System  (OTS) .  This  system  is  a  collection  of  routines  selectively 
linked  to  the  user's  program  to  perform  certain  arithmetic, 
input/output,  and  system-dependent  service  operations.  Chapter  3 
describes  system-dependent  information  not  included  in  the  PDP-11 
FORTRAN  IV  Language  Reference  Manual .  Chapter  4  contains  hints  for 
improving  the  efficiency  of  FORTRAN  IV  programming.  The  appendices 
provide  reference  information  about  internal  data  representations, 
system  subroutines,  error  diagnostics,  compatibility  of  FORTRAN  IV 
with  other  PDP-11  FORTRAN  processors,  bit-string  manipulations, 
reducing  RSX-llM  task  size,  and  completing  the  Software  Performance 
Reports. 


INTENDED  AUDIENCE 

This  manual  '' "  intended  for  your  use  after  you  have  acquired  some 
knowledge  or  th/-  FORTRAN  language,  as  implemented  on  the  PDP-11.  The 
associated  doct  it  for  this  purpose  is  the  PDP-11  FORTRAN  IV  Language 
Reference  Manuai .  You  '^'•ould  also  be  familiar  wi  th  the  local 
operating  system  and  its  documentation. 


NOTE 


Subroutines  are  provided  in  the  system 
library  to  enable  real-time  process 
control,  process  I/O,  and  RSX-llM  or 
RSX-llM-PLUS  system  directives  to  be 
performed  by  means  of  FORTRAN.  These 
routines  and  their  IS",  standard  calls 
are  fully  described  for  each  system  in 
the  RSX-llM  Executive  Reference  Manual 
and 


the 
Manual . 


RSX-llM   I/O   Drivers   Reference 


FORTRAN  IV  operates  on  the  RSX-llM  and  RSX-llM-P'  IS  operating  systems. 
For  ease  of  discuss  on,  the  term  "RSX-11"  is  used  as  a  genetic 
reference  for  both  systems. 


All  RSX-II  system  program  command  lines  are  terminated  by  a  RETURN. 
Since  this  is  a  nonprinting  char^l^ter,  at  certain  places  in  the  text 
the  notation  <CR>  is  used  to  represent  the  RETURN  key. 


Some  special  keyboard  characters  require  tha .  the  CTRL 
be   pressed   simultaneously  with  a  second  character, 
are  denoted  by  '  (up-arrow),  for  example,  'Z    (CTRL  Z) . 


(control)   key 
ese  characters 
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PREPACB 


In  all  examples,  text   that   is   printed   by   the   system   program   is 
underlined;   text  typed  by  the  user  is  not. 

Ellipsis  marks  (...)  indicate  that  one  or  more  words  were  omitted  from 
a  passage  without  altering  the  meaning  of  the  passage. 

Prompting  conventions  for  RSX-llM  and   RSX-llM-PLUS   differ   slightly. 
Thus,  the  following  sequence  initiates  FOR: 

RSX-llM-PLUS 

>POR 

--      J.      -  .   - 
4 


The  terms  "mapp«d"  and  "unmapped"  refer  only  to  RSX-llM. 


au 


CHAPTBR  1 
OflKATIMG  PROCiPaRBS 


1.1   OS  INC  THE  POtTMH  IV  STr^W 

Thr  FORTRAN  IV  systMi  co«pria«s  (a)  the  coapiler  and  (b)  the  Object 
Tine  System  (OTS) .  The  coaipiler  translates  the  syaboltc  (source) 
piograw  into  a  relocatable  binary  (object)  aodule.  The  OTS  is  a  set 
of  object  modules  used  at  eiecution  tisw  to  control  and  support  a 
FORTRAN  proqran.   Chapter  2  covets  the  OTS  in  detail. 

rou  must  take  the  following  three  steps  to  fansforn  a  FORTRAN  source 
prograai  into  an  executing  task: 

1.  Coapilation 

2.  Task  build  (or  linking) 

t.      Initiation  of  eiecution 

To  compile,  you  invoke  the  FORTRAN  IV  compiler  and  specify  the  source 
files  to  be  processed.  Next,  you  use  the  Task  Builder  to  construct  a 
task  image.  Finally,  you  start  tjsk  eiecution  by  using  the 
appropriate  system  cosMands.  Each  step  in  this  procedure  involves 
■evetal  required  and  optional  command  inputs  and  produces  an  output  to 
be  used  in  tho   next  step.   Other  optional  outputs  are  also  possible. 

figure  1-1  sh  m  these  steps.  This  chapter  treats  the  process  in 
detail  and  gi  tm   uomm   simple  examples. 


LOMPKin 


rvjiL/ 


MAP 


Figure  i  Preparing  a  FORTRAN  IV  Program  for  Bxecution 


m  Oft  ( 
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OIPBRATING  PROCBDOMBS 


1.1.1   Coam«nd  Lines 

System  piograms  usually  require  a  ccmmand  line  to  specify  input  'iles, 
output  files,  and  various  options. 

•  Terminal  Input  of  Commands 

A  terminal  input  command  for  RSX-llM-PLUS  or  RSX-llM  is  a 
■e  :ence  of  file  spec:  i  ficat  ions  separated  by  an  equal  sign: 

output-files-list  »  input-file 

Each  specification  selects  a  file  for  input  or  output  by  the 
system  program. 

•  Indirect  Command  Pilc^ 

The  indirect  command  file  allows  you  to  store  commonly  used 
command  sequences  in  a  file  you  create  and  then  to  execute  the 
sequence  by  issuing  the  "at"  sijn  (?)  followed  by  the  file 
specification: 

#  command- file 


1.1.2   File  Specifications 

When  you  specify  a  file  name,  you  are  implicitly  referencing  a  file 
with  a  given  UIC  and  disk  designation.  Tie  system  relates  the  User 
Identification  Code  (UIC)  in  the  file  specification  to  a  user  file 
directory  (UFD)  to  locate  the  file.  You  specify  a  UIC  in  the  format 
of  lg,ml  ,  where  g  and  m  are  octal  numbers  that  identify  your  group  (g) 
and  your  membership  number  (m)  in  that  group.  The  assoc'ated  UFD 
contains  the  names  of  files  and  has  pointers  to  each  file.  You  may 
use  the  standard  system  format,  as  shown  below,  to  specify  both  input 
and  output  files  in  a  command. 


dev: 


dev: (g ,m) f i lename. typ; ver 


The  unit  on  which  the  volume  containing  the  desired  file  is 
mounted,  for  instance,  DKO ; .  The  name  consists  of  two  ASCII 
characters  followed  by  an  optional  1-  or  2-digit  (octal)  unit 
number  and  a  colon.   The  default  value  is  S'^0:. 


(g.mi 


The  user  identification  code  (UIC)  associated  with  the 
directory   containing  the  desired  file.   This  consists 
number  (g)  and  a  member  number  (m) .   The  default 
UIC   is   the   identification   code   under   which 
running . 


user   file 

of  a  group 

value   for   the 

the   program  is 


f  i  lename 


The  name  of  the  file, 
characters  in  length. 


A  file  name  can  be  up  to  nine  alphanumeric 


1-2 


OPERATING  PROCEDORES 


typ 


A  file  type  (or  extension)  can  have  as  many  as  three  alphanumeric 
characters.  Most  system  programs  default  the  file  type  to  an 
appropriate  standard  type  (such  as  FTN) .  The  typical  user  may 
not  need  to  specify  an  explicit  file  type. 


;  vet 


An  octal  number  used  to  differentiate  among  versions  of  a  file. 
If  the  version  number  is  not  specified,  the  default  on  input  is 
the  highest  existing  version  number  for  the  file.  On  output,  it 
is  the  highest  existing  number  plus  one. 


1.2   OSING  THE  FORTRAN  IV  COMPILER 


The  FORTRAN  command  invokes  the  FORTRAN  IV  compiler,  which  compiles 
one  FORTRAN  IV  source  file  and  produces  a  relocatable  object  module. 
You  may  specify  only  one  source  file  and  a  maximum  of  two  output  files 
with  each  FORTRAN  command.  The  system  allows  a  maximum  of  four  levels 
of  indirect  command  files  for  RSX-llM  and  RSX-llM-PLUS .  You  invoice 
FORTRAN  as  shown  below. 


>FOR 


Each  command  directs  FORTRAN  to  compile  the  specified  source  file  and 
to  produce  specified  outputs.  The  compiler  isponds  to  the  default 
switch  settings  and  produces  an  object  file,  if  specified,  with  OBJ  as 
the  default  file  type.  A  second  output,  when  specified,  is  the 
listing  file  with  LST  as  the  default  file  type.  Table  1-1  shows  the 
FORTRAN  default  file  types.  Table  1-2  shows  the  FORTRAN  compiler 
options  (switches). 


Table  l-I:   FORTRAN  IV  Conpi let  Default  Pile  Types 


Pile 


Source 
Object 
Li  St ing 
Source 
Command 


Default  Type 


OBJ 
LfT 


CMD 


The  example  below  directs  the  compiler  to  compile  the  source  file 
FILEI.PTN  from  the  system  device  and  to  output  the  file  LIST. LST  and 
OBJECT. OBJ  to  the  system  device. 

RSX-lIM 


>POR 

Fgl>OBJECT,LIST-PILEl 
POR>*Z 
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OPERATING  PROCEDURES 

1.2.1  FORTRAN  IV  Command  on  RSX-llM  and  RSX-llH-PLUS 

..;;,;'■' 

Once  you  have  invoked  the  compiler,  you  may  enter   a   terminal   input        ^^A 
-  command:                                                                ^^ 

,  .     object. 

listing  I /switches] = sour cet /switches] 

The  only  req 
switches  are 

[uired  file  specifier  is  the  source  input   file 
f  shown  in  Table  1-2. 

Compiler 

You  may  enter  an  indirect  command  file   in   response   to   the   FORTRAN 
prompt   by   typing  the  "at"  sign  (§) ,  followed  by  the  indirect  command 
file  specification: 

FOR>gCOMPILE.CMD 

'..■'■-  ■ 

(The 

Table  1-2:   Compiler  Options  (Switches) 

default  values  can  be  changed  at  installation 

time) 

Option 

Biplanation 

Default          fl^ 

/CD: XXX 

Selects   type   of    object  code  to  be 
generated . 

The  valid  values  are: 

EAE  (selects  code  for  EAE  hardware) 

EIS  (selects  code  for  EIS  hardware) 

FiS   (selects   code   for   EIS   and  FIS 
hardware) 

THR  (selects  threaded  code) 

/CD: THR 

• 

/DE 

Compile   lines   with  a  "D"  in  column  one 
(for  debugging  purposes).    These   lines 
are  treated  as  comntent  lines  by  default. 

/NODE 

/DT. 

Enables   expanded   listings   of  compiler 
internal  diagnostic  information. 

/NODI 

/EX 

Allow   source   line   input  commet.ts  from 
columns   73-80.    The  default  re^^ds  only 
the  first  72  columns. 

/NOEX              ^^ 

/ID 

Print    FORTRAN    identification    and 
version   number   on  the  user's  terminal. 
The  default  omits  the  identification  and 
version  number. 

/NOID 

-  "■'  --    — 

/14 

Default    to    2-word    integers    (1*4) 
(normally  defaults  to   l-word   integers 
(1*2).    Only   one   word   is  used  for 
computation. 

/NO  1 4 

'r 

/LIrn 

Specifies   the    listing   options.   The 
argument  n  is  encoded  as  follows: 

0  or  null  -  list  diagnostics  only 

/LI:3 

* 

(continued  on  next  page 
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Option 


Table  1-2  (Cont.):   Compiler  Options  (Switches) 


Explanation 


Default 


/LI:n 


/LO 


/RO 


/SN 


/SP 
/VA 

/WR 


1  or  SRC   - 

2  or  MAP   - 

A    or  COD   - 


list    source    program 
diagnostics  only 
list     storage    map 
diagnostics  only 


list    generated 
diagnostics  only 


code 


and 
and 

and 


Any 


combination 


of 


the   above   list 


options 
together 
compute 
example: 

7  or 


may   be   specified    by    adding 

the   numeric  argument  values  to 

the   desired   list  options.   For 


ALI, 


requests   a   source   listing,   a   storage 
map,   and   a   generated  code  listing.   If 


this    option   is   omitted, 
option    is   /LI:3,   source 
map.    If   no   listing  file 
diagnostics   are   reported 
terminal . 


the   default 

and   storage 

is  specified, 

on  the  user's 


Prints  on  the  user's  terminal  the  names 
of  program  units  (from  PROGRAM,  FUNCTION, 
SUBROUTINE,  and  BLOCK  DATA  statements)  as 
each  program  unit  is  compiled.  Note  that 
.MAIN  refers  to  the  main  program;  and 
.DATA,  refers  to  an  unnamed  BLOCK  DATA. 


Causes   pure 
sections    to 
attribute. 


code   and  pure  data  program 
take   the   RO  (read-only) 


Include  Internal  Sequence  Numbers  (ISN). 
The  /NOSN  opt r on  reduces  storage 
requirements  for  generated  cod',  and 
slightly  increases  execution  speed  but 
disables  line  number  information  during 
traceback.   The  default  is  to  use  ISNs. 


Automatically   spools  listing  file, 
default  is  to  spool. 


The 


Enable  vectoring  of  arrays.    The  default 
is  to  vector  arrays. 

Enable  compiler  warning  diagnostics.   The 
default  IB  to  issue  warning  diagnostics. 


/LO 


/-RO 


/SN 


/SP 

/VA 
/WR 


1.2.2  Coapilvr  Itonory  Requiresicnta 

Th«  compiler  task,  as  installed  on   th*  RSX-11   systems,   requires   a 

minimum   memory   of   8K   words   that  can  be  extended  to  process  larger 

FORTRAN  programs.    The   compiler   will  issue   a   FATAL  ERROR   if  *:h« 
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compiler  "-ask  exceeds  the  available  storage  during  compilation.  See 
the  RSX  FORTRAN  IV  Installation  Guide  for  information  to  extend 
compiler  mf^mory. 


• 


1.3   USING  THE  TASK  BUILDER  TO  LINK  FORTRAN  IV  PROGRAMS 


a  task  image  by   linking   r 
sources.    These   include   t 

and  system  libraries.   The 
s   references  to  global  symb 

other  modules.  It  automati 
library  (  ( 1 , 1] SYSLIB.OLB)  t 
This  process  includes  res 
ocks  and  shared  libraries, 
res.  The  Task  Builder  produ 
e  system  you  are  using.  Th 
uals  cover  this  entire  proce 


You  invoke  the  Task  Builder  with  the  following  command: 
:^TKB 


The 

Task 

Builder  creates 

modu 

les 

from   several 

speci  f y , 

user  libraries. 

the 

inp 

ut   and   resolve 

modu 

le  a 

nd  referenced  in 

system 

object  module 

unde 

fine 

d  symbols  remain 

to 

resi 

dent   common   bl 

that 

use 

overlay  structu 

you 

can 

run   under   th 

RSX- 

IIM 

Task  Builder  man 

elocatable   object 

he  input  files  you 

Task  Builder  scans 

ols  defined  in  one 

cally  searches  the 

o  resolve  whatever 

olving   references 

and  building  tasks 

ces  a   task   image 

e  RSX-llM-PLUS  and 

ss  in  detail. 

You  must  use  a  standard  command  string  as  described  in  Section  1.1.2, 
and  you  have  the  option  of  entering  your  commands  on  the  same  line  as 
the  TKB  command.  After  you  have  entered  all  your  input,  you  conclude 
by  typing  two  slashes  {//) .  The  Task  Builder  then  builds  the  task 
image.   Table  1-3  shows  the  Task  Builder  default  file  types. 


Table  1-3:   Task  Builder  Default  File  Types 


File 


Default  Type 


Task  Image 

TSK 

Map 

MAP 

Object  Module 

OBJ 

Library 

OLB 

Overlay 

Description 

ODL 

Command 

CMD 

Symbol  Table 

STB 

The  following  simple  RSX-ilM  exanple  builds   a   task   image   for   the 
object  file  OBJECT. OBJ  created  by  the  first  example  in  Section  1.2: 

>TKB 

TKB>TASK-OBJECT 

TKB>// 


or 


>TKB  TASK=OBJECT 
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This  creates  the  task  image  file  TASK.TSK  on  the  system  device  and 
lists  the  memory  allocation  map  on  the  line  printer.  When  the  OTS 
resides  in  the  system  object  library,  the  Task  Builder  automatically 
resolves  any  references  in  OBJECT. OBJ  to  the  FORTRAN  IV  OTS  routines. 
However,  if  the  FORTRAN  IV  OTS  is  in  a  SC; arate  library,  you  must 
specify  that  library  in  the  Task  Builder  input,  as  shown  in  the 
following  RSX-llM  example: 


>TKB 

TI(B>TASK=x  OBJECT 

TKB> 1 1,1] FORLIB 

fWl>// 


LB 


Assume,  in  subsequent  examples,  that  the  FORTRAN  IV 
SYSLIB.OLB. 


OTS 


IS 


part   of 


Whan  you  use  a  separate  FORTRAN  IV  Library,  take  particular  care  not 
to  mix  object  modules  from  the  FORTRAN-77  compiler  (F77)  and  its 
corresponding  Object  Time  Systems  in  3  task  you  are  building  from 
FORTRAN  IV  obiect  modules. 


CAUTION 


Object  modules  produced 
PDP-11  FORTRAN  systems 
combined  in  a  sing'''?  task. 


by   different 
must   not   be 


The  FORTRAN  IV  OTS  contains  global  symbol  definitions  for  names  of 
routines  that  are  always  called  by  code  conpiled  by  other  PDP-11 
FORTRAN  processors.  Consequently,  one  of  the  following  types  of 
errors  will  result  if  you  include  an  object  module  from  another 
FORTRAN  with  FORTRAN  IV  compile]  nb]ect  modules. 


1.  The  Task  Builder  issues  the  message  "HODULC 
DEFINES  SYMBOL  yyy" ,  where  ixx  and  yyy  are  one 
following  pairs: 


XXX   MULTIPLY 
or  more  of  the 


Plodule 
SNAM 


Sysibol 
$NAM 


SSRVX 


3POLX 


SAOTS 


SPOLSH 


5NAM 


NAMii 


2.  In  the  absence  of  Multiple  sysibol  definitions,  the  OTS  will 
issue  J  diaqnostic  aesseqe  during  execution  «fhen  the 
offendinq  object  »odule  calls  any  of  the  above  entry  point 
nasies . 


In  add  1 1  ton , 
OTS  fi.  :  ines 


any  MACRO  routines  that  directly  it    indirectly   call   the 
ot  another  FORTRAN  could  produce  one  of  the  above  errors. 


l.).l   Task  Duilder  Switches  for  PORTRAM  IV  Proqraas 


Several  Task  Builder  switches  are  necessary  for  correct  linking  of 
FORTRAN  IV  proqraas.  Others  select  options  that  will  benefit  your 
proqrasHiing.  To  neqste  •  switch,  precede  the  switch  na»e  with  a  Minus 
siqn  (-)  or  the  letters  NO.  Tou  will  find  (}«tj|tl#d  descriptions  of 
feeli  •vtl4«l  twitches  in  the  Task  Nutlder  Manual  foe  yeuc  s/atea. 
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Tou  laust  use  the  /EA  switch  on  the  RSX-llH  task-inaqe  file  when  the 
task  uses  the  KEll  Extended  Arithmetic  Bleaent. 

Tou  aust  use  the  /PP  switch  on  the  task-iaage  file  «<hen  the  ta^k  uses 
the  PP-ll  Pleating  Point  Processor.  The  /-PP  qualifier  is  the  assumed 
default  under  RSX-llN  and  RSX-1 IH-PLUS. 

Tou  can  select  an  abbreviated  form  of  the  memory  allocation  map  by 
specifying  /SH  on  the  map  file.  See  your  system's  Task  Builder  manual 
for  a  description  of  both  the  long  and  short  map  formats. 

Tou  can  specify  che  /LB  and  /MP  switches  with  an  input  file,  to 
indicate  an  object  module  library  (/LB)  or  overlay  description  file 
(/MP) . 

The  /SP  switch  causes  autosiatic  spooling  of  the  Task  Builder  map  file. 
The  default  is  autoaiatic  printing  (spooling)  on  the  liiie  printer.  Th9 
following  sections  r>over  these  switches  in  detail. 


1.3.2   Task  Builder  Options  for  PORTRAB  IV  Programs 

Tou  can  specify  several  Task  Builder  options,  as  shown  in  Table  1-4, 
in  addition  to  the  switches  described  above.  Several  of  rhese  have 
particular  relevance  to  your  PORTRAN  programming. 


Table  1-4:  Task  Buildmc  Opticas 


Opt  ion 


Nesninq 


ACTFIL    Heclare  number  of  files  open  simultaneously. 

ASG      Declare  device  assignment  to  logical  units. 

COHHON   Declare  task's  intention  to  access   a   shareable   global 
area . 


PHTBUP 


LIBR 


NAXBUF 


UNITS 


Omclare   extension   of 
object-time  formats. 


buffer 


used 


Dwclare  task's 
shared  reqion. 


intention   to   access 


for    processing 


lOry-resident 


Declare  an  extension  to  the  PORTRAN  record  buffer. 
Declare  the  maximum  number  of  logical  units. 


Mhen  you  specify  options  in  RSX-llM  and   RSX-1 IM-PLUS, 


you 


lust   not 
and 


specify  the  command  string  on  the  same  line  as  the  TKB  comma'>d; 
you  must  terminate  the  command  input  with  a  line  consisting  of  a 
•ingle  slash,  /.  The  Task  Builder  then  will  solicit  option 
information  by  printing: 

>T1B 

TrB>TA8R-0BJBCT 

TW>// 

ii^lR  OPTIONS I 
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At  this  point,  you  enter  Task  Builder  options,  specifying  one  option 
on  each  line.  After  you  enter  each  option,  the  Task  Builder  accepts 
the  next.  Finally,  you  enter  two  slashes  to  indicate  no  more  options. 
The  Task  Builder  then  builds  the  task  and  produces  the  requested 
output  files.  Again,  it  types  TKB>  to  show  it  has  finished  and  is 
ready  to  accept  a  new  command  string.  To  exit  from  the  Task  Builder, 
type  *Z  (CTRL  Z) . 


You  can  then  enter  any  of 
sect  ions. 


the   options   described   in   the   following 


1.3.2.1  ACTPIL  -  The  system  defaults  to  four  the  number  of  files  that 
may  be  simultaneously  opened  by  a  task,  and  allocates  buffer  space  in 
the  task  image  for  this  many  files.  When  you  request  mult ibuf fer ing 
(by  means  of  FDBSET) ,  the  number  of  buffers  the  FORTRAN  task  needs 
will  be  greater  than  the  number  of  files.  You  can  decrease  the  number 
of  buffers  to  conserve  memory,  or  increase  them  to  low  more  files  to 
be  opened  simultaneously  by  means  of  the  Task  Builder  option: 

ACTFIL  «  n 


The  decimal  number  of  buffers  desired. 

A  fatal  OTS  error  at  run  time  will  result  if  you   attempt   to   open   a 
file  when  space  is  not  available. 


1.3.2.2   ASG  -  You  can  assign  logical  unit  numbers  to  physical   dsvice 
units  with  the  following  option: 


ASG  ■  devl:nl :n2: . . . ,dr /2:ml :m2: 


dev 


A  physical  device  unit  name, 
n  and  n 

A  valid  logical  unit  number. 
The  default  device  assignments  appear  as; 

ASG  >  SY:1:2:3:4,TI:5,CL:6 


1.3.2.3   COmON  -  You  specify  the  following  option   when   the 
program  references  a  shared  common  block: 

COHMON  -  name: access 


FORTRAN 


The  name  associated  with  the  resident  common  block. 

access 

Either  RO  for  Read  Only,  or  RW  for   Read/Mrite   on   systems  with 
■•mory  management. 
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The  shared  common  block  can  contain  a  BLOCK  DATA  subprogram,  which 
includes  multiple  FORTRAN  COMMON  declarations.  This  allows  data 
sharing  among  concurrently  operating  tasks. 


1.3.2.4  PNTBOF  -  You  can  increase  the  default  size  (132  bytes)  of  the 
buffer  used  for  object-time  format  compilation  with  t^■.a  Task  Builder 
option: 

FMTBUF  =  n 


A  decimal  value  specifying  the  size,  in  bytes,  of  the  object-time 
format  compilation  buffer. 

The  total  size  needed  for  format  compilation  is  approximately  equal  to 
the  number  of  characters  in  the  largest  object-time  format  used  by  the 
program. 


1.3.2.5   LIBR  -  You  specify  the   following   option   when   the   FORTRAN 
program  references  a  shared  Mbrary: 

LIBR  >  name '.access 
name 

The  library's  name. 

access 

Either  RO  for  Read  Only,  or  RW  for   Read/Write   on   systems   with 
memory  management. 

Section  1.3.3  covers  libraries  in  detail. 


1.3.2.6  HAXBOP  -  By  default  the  maximum  record  size  the  OTS  can 
handle  for  input/output  is  132  (decimal)  bytes.  You  can  increase  this 
by  specifying  the  Task  Builder  option: 

MAXBUF  »  n 


The  number  of  bytes  (in  decimal). 

The  default  generally  is  adequate  for  formatted  input/output.  To 
perform  direct  access  or  formatted  operations  using  records  larger 
than  132  bytes,  you  must  employ  this  option  to  jpecify  the  size  of  the 
largest  record  to  be  handled. 
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1.3.2.7   ONITS  -  Logical  units  1  through  6,  inclusive,   are 

by  default  to  the  FORTRAN  program.   You  can  set  this  number 

larger  at  task-build  time  by  specifying  the  option: 

UNITS  -  n 


available 
smaller  or 


The  number  of  logical  units  desired. 

Section  3.4  covers  the  default  device  and  file  name  associated  with  a 
logical  unit  number.  You  must  give  a  UNITS  command  before  any  ASG 
commands,  if  you  want  a  number  of  units  different  from  the  default. 


1.3.3   FORTRAM  IV  Library  Osag* 

A  library  is  a  collection  of  object  modules  and  is  either   relocatable 
or  shared. 


1.3.3.1  Relocatable  Libraries  -  Relocatable  libraries  are  stored  as 
files  on  a  disk.  The  Task  Builder  binds  object  modules  from 
relocatable  libraries  into  the  task  image  of  each  task  that  references 
that  module.  When  you  specify  a  relocatable  library  as  an  input  file 
to  the  Task  Builder,  you  must  include  the  /LB  switch  in  RSX-llM  or 
RSX-llM-PLUS  to  indicate  a  library  file.  When  the  Task  Builder 
encounters  a  library  specification,  it   includes   in   the   task 


image 

those  modules  in  the  library  that  contain  definitions  of  any  currently 
undefined  global  symbols. 


1.3.3.2  Shared  Libraries  -  Shared  libraries  are  located  in  main 
memory  and  all  referencing  tasks  use  the  same  single  copy  of  each 
library.  You  gain  access  to  a  shared  library  by  using  the  LIBR 
option,  as  described  in  Section  1.3.2.5.  The  user  explicitly  creates 
shared  libraries  and  they  must  contain  shareable  (reentrant)  code. 
For  further  information  concerning  shared  libraries,  see  the  Task 
Builder  manual  for  your  system. 


1.3.3.3  Systwi  Libcariaa  -  Each  system  has  a  relocatable  library. 
Th«  Task  Builder  automatically  searches  the  system  relocatable 
library,  ( 1 , 1] SYSLIB.OLB,  for  any  undefined  global  references  th. t 
remain  after  processing  all  user-specified  input  files.  The  Task 
Builder  includes  in  the  task  the  definition  of  any  undefined  global 
symbol  it  finds.  If  the  FORTRAN  IV  GTS  is  included  in  the  system 
object  library,  the  Task  Builder  loads  it  automatically  with  FORTRAN 
programs. 

Some  systems  also  have  a  system-shared  library,  FCSRES,  which  contains 
consBonly  used  input/output  routines  that  almost  all  tasks  need.  You 
can  link  the  system-shared  library  to  a  task  by  using  the  option: 

LIBR  >  FCSRES :R0 


This  use  of  PC.   S  reduces  the  site  of  a  task,   since 
need  not  be  dupi   ated  by  the  system  object  library. 


their   routines 
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1.3.3.4  User  Libraries  -  You  can  construct  relocatable  libraries 
assembly  language  and  FORTRAN  routines  by  using  the  RSX-11 
(RSX-llM-PLUS)  Librarian  utility.  You  access  these  libraries  through 
the  appropriate  library  switch  for  your  system. 

For  example,  assume  that  MATRIXLIB.OLB  is  a  relocatable  library 
containing  matrix  manipulation  routines,  and  PROG. OBJ  is  the  object 
file  of  a  compiled  FORTRAN  program  that  calls  the  matrix  routines. 
You  could  give  the  following  command  to  the  Task  Builder: 

TKB> PROG , PROG/SP , MATR I XLIB/LB 
TKB>// 


1.3.4   Overlays  ^ 

The  Task  Builder  provides  an  overlay  facility  that  is  effectively 
transparent  to  the  FORTRAN  programmer,  and  allows  large  programs  to  be 
executed  in  relatively  small  areas  of  main  memory.  You  need  only 
specify  the  overlay  structure  to  indicate  which  subprograms  are  to 
reside  in  various  parts  of  the  structure.  The  Task  Builder  manual  for 
your  system  has  a  complete  description  of  overlay  structures  and 
instructions  for  building  overlaid  tasks. 


1.4   TASK  EXBCOTION 

When  your  task  image  has  been  built,  you  use  operating  system  commands 
to  start  the  execution. 

You  initiate  task  execution  with  the  RUN  command: 

>^RUN  filespec 

f i lespec 

The  file  specification  of  the  file   containing   the   task   image. 
(Pile  specification  is  described  in  Section  1.1.2.) 

You  can  terminate  a  task  prior  to  its  normal  termination  with  the 
ABORT  command: 

>ABO  task 

You  can  suspend  the  execution  of  a  task  with  a  FORTRAN  PAUSF 
statement,  or  end  it  with  a  STOP  statement.  In  either  case,  the 
Object  Time  System  prints  a  line  with  the  task  name,  the  statement 
that  caused  the  execution  halt,  and  the  contents  of  the  display  (text 
following  STOP  or  PAUSE).   To  continue  execution  after  a  PAUSE  type: 

>RES  tsk 

When  a  task  terminates  as  a  result  of  a  CALL  EXIT  statement,  it  will 
not  produce  any  output  indicating  that  there  was  a  termination. 
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1.5   EXAMPLES 

You  can  use  the  following  sequence  of  commands  to  compile,  link,  and 
execute  a  FORTRAN  job  consisting  of: 

•  The  FORTRAN  main  program  MAIN.FTN 

•  The  FORTRAN  subroutine  SUBRl.FTN 

•  Several  FORTRAN  subroutines  in  the  file  UTILITY. FTN 

>FOR  MAIN,MAIN«MAIN 
>FOR  SUBR1,SUBR1=SUBR1 
>^FOR  UTILITY, UTILITY-UTILITY 
,  ^.,         >TKB  J0B=MAIN,SUBR1, UTILITY 
>RUK  JOB 

You  can  use  the  following  sequence  of  commands  :>r  a  more  complex 
FORTRAN  job  that  uses  the  same  FORTRAN  source  programs  but  adds 
several  options: 

1.  A  global  common  named  PARM 

2.  Suppression  of  array  vectoring 

3.  An  increase  in  the  user  record  buffer  size 

4.  Subroutines  in  the  object  module  library  MATLIB.OLB 

The  sequence  of  commands  is: 

>FOR  MA1N,MAIN=MAIN/N0VA 

>FOi<  SUBR1,SUBR1  =  SUBR1/N0VA 

>FOR  UTILITY,UTILITY-UTIL1TY/N0VA 

>TKB 

fKB>JOB=MAIN,SUBRl,UTILITY,MATLIB/LB 

TKB>/ 

ENTER  OPTIONS; 

TKB>COMMON»-PARM :  RW 

yKg>MAXBUF»256 

WS>// 

>RUN  JOB 

You  can  achieve  the  same  result  by  using  indirect  command  files.    For 
example,  if  the  file  COMPILE.CMD  contains: 

MAIN, MAIN-MAIN/NOVA 
SUBR1,SUBR1-SUPR1 ^NOVA 
UTILITY, UTILI'.         — /MOVA 

and  the  file  LINK.CMD  contains: 

J0B-MAIN,SUBR1,UTILITY,MATLIB. 

/ 

COMMON- PARM :RW 

MAXBUF-256 

// 

the  following  indirect  command  file  accomplishes  the   same   result  aa 
the  previous  example: 

>POR  ^COMPILE 
>TKB  JLINK 
>RUN  JOB 
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You  can  also  use  an  indirect  command  file  to  replace  the  previous 
sequence.  For  example,  you  can  place  all  of  the  commands  entered 
above  in  a  file  COMPILE.CMD  and  use  the  following  form: 

>  ^COMPILE 


1.6   DEBUGGING  A  rORTRAN  IV  PROGRAM 

The  "debug  line"  capability  of  FORTRAN  IV  is  effective  in  debugging 
because  it  allows  a  FORTRAN  state..ient  to  be  conditionally  capiled. 
Here  are  some  suggestions  for  using  that  capability. 

Tty  to  locate  the  stitement  in  error  by  typing  out  intermediate  values 
and  results.  Place  a  "D"  in  column  one  of  each  sourc*  line  you  have 
added  for  debugging  purposes.  These  lines  will  not  be  compiled  unless 
you  specify  the  debug  option  (/DE)  in  the  compiler  command  string. 
The  program  can  be  recompiled  without  the  /DE  option  after  the  problem 
has  been  corrected.  All  the  debugging  statements  will  then  be  treated 
as  cow*crt.s. 

Use  the  operating  system's  ODT  debugging  aid  for  inline  code.  ODT 
debugging  requires  the  generated  code  listing  for  the  program  (see 
Table  1-2,  /LI:4  listing  control  option).  The  resulting  numbers 
printed  in  the  left  margin  of  the  listing  are  the  octal  ot(^ets  of  the 
listed  machine  instructions  within  the  local  PSECT  SCODE. 

The  variables  and  data  items  referenced  symbolically  in  the  q«nerated 
code  listing  are  located  in  the  PSECT  SDATA  at  the  offsets  indicated 
by  the  storage  map  section  of  the  compiler. 
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rOSTRAU  IV  OPIRATINC  EMV I ROHMBHT 


2.1   FORTRAN  IV  OBJBCT-TIMB  SYSTEM 

The  PDP-Ll  FORTRAN  IV  Ob]ect-Tiiiie  System  (OTS)  provides  the  user  with 
a  library  of  comnon  sequences  of  PDP-11  machine  instructions  invoked 
by  conpi led  FORTRAN  programs.  The  OTS  consists  of  many  small 
functional  modjles  from  which  the  compiler  selects  only  those  required 
to  inplement  the  FORTRAN  program.  The  required  sequences  are 
integrated  with  the  cobi  < ler-generated  code  during  linkage  to  form  the 
execucable  program.  For  example,  if  the  user  program  performs  only 
sequential  access,  formatted  I/O,  none  of  the  direeu  access  I/O 
routines  is  included. 

The  FORTRAN  IV  OTS  comprises  'the  following: 

1.  Hath<Miatic8  routines,  including  the  FORTRAN  IV  library 
func:ion8  and  other  arithmetic  routines  (for  example, 
floating-point  routines) 

2.  Miscellaneous  utility  routines  (srch  as  ASSIGN,  DATE,  ERRSBT) 

3.  Routines  that  handle  various  '^  vpes  of  FORTRAN  I/O 

4.  Error-handling  routines  that  process  arithmetic  errors,  I/O 
errors,  and  system  errors. 

5.  Miscellaneous  routines  required  by  the  compiled  code 


2.2   OBJECT  CODE 


The 
POP 


FORTRAN 


compiler  translates  programs  written   in   the   symbolic 

11   FORTRAN   language   into  "object  code"  (machine  language).   The 

resulting  object  modules,  combined   with   required   modules   from   the 
FORTRAN    IV    OTS,    form    executable   programs   of   PDP-11 
instruct  ions . 


machine 


The   compiler   produces   two   distinctly   different   types   of   object 
programs  by  generating  either  threaded  code  or  in-line  code. 


a. 2.1   Thx««d«d  Cod* 

Typical  fORTRAH  operatidns  call  common  ••quences  of  PDP-11  machine 
instructions.  At  the  end  of  any  DO-loop,  for  example,  the  program 
incresMnts  the  index  variable,  compares  it  with  the  limit  value,  and 
takes  a  conditional  branch.  Other  standard  sequences  locate  an 
elMMHt  of  4  mul  t  tdimendional  array,  initialise  an  input/output 
operation,  or  simulate  a  floating-point  operation  not  supported  by  the 
hardware  configuration  of  tho  computer . 
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The  compiler  generates  a  word  to  reference  a  library  function.  That 
word  contains  the  address  of  the  first  instruction  in  the  sequence  and 
specifies  the  operations  that  the  instructions  must  perform.  Consider 
again  the  end-of-DO-loop  sequence.  The  requi..ed  information  gives  the 
location  of  the  index  variable,  the  limit  value,  and  the  address  of 
the  beginning  of  the  loop.  At  run  time,  register  R4  threads  together 
the  .arious  references  to  library  instruction  sequences. 


2.2.2   In-Line  Code 


When  you  select  in-line  code  (through  the  options  /CD:  EAE,  EIS,  or 
FIS) ,  the  compiler  produces  the  one-to-one  PDP-11  machine  instructions 
required   for   the   specific   arithmetic   hardware    in    the    system 

Symbolic   FORTRAN   library  routines  are  referenced  to 

tnose   functions   which   cannot   be   achieved   in   short 

machine   instructions.    A  program  compiled  th'ough  the 

option   produces   an   object   program    that    conforms 


configuration , 
perform  only 
sequences   of 
in-line   code 


specifically  to  the  type  of  hardware  selected  at  compilation  time. 

Take  care  to  select  the  code  option  suitable  to  the  available  hardware 
because  some  configurations  will  not  support  execution  of  in-lip» 
code.  Table  2-1  shows  valid  code  generation  options  fot  specific 
hardware  configurations.  The  default  value  for  code  generation  is 
determined  when  you  install  FORTRAN  IV.  Note  that  the  threaded  code 
option  is  supported  for  Ul  configurations. 


Table  2-1:   Valid  Options  vs  Configuration 


Hardware 
Configuration 

Hardware 

Aritha«tic  Options 

r        ■ 

Valid  Code 
Options  /CD: 

■  -  ■ 
KEV-11 

KEll-A 

KEll-B 

KEll-F 

KKll-F 

11/04,  11/05 

il/lO 

11/15,  11/20 

- 

NO 
YBS 

NO 
YES 

- 

- 

THR 

EAE  or  THR 

11/03  or  LSI-11 

NO 

- 

- 

- 

THR 

YBS 

- 

- 

- 

- 

EIS,  FIS  or  THR 

11/35  or  11/40 

- 

NO 

NO 

NO 

NO 

THR 

- 

TBS 

NO 

NO 

NO 

EAE  or  THR 

- 

NO 

YES 

NO 

NO 

EAE  or  THR 

- 

NO 

NO 

YES 

NO 

EIS  or  THR 

- 

NO 

NO 

YES 

YES 

EIS  or  THR 

- 

NO 

NO 

YES 

YES 

EIS,  FIS  or  THR 

11/34,  11/45, 

11/55,  ll/SO 

CIS  II 

standard 

on  these 

processo 

rs 

EIS  or  TMP 

U//0,  11'60 
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Each   library   generates   object   code   that    can    be    symbolically 
represented  as  follows  (the  storage  map  is  included  for  reference): 


FORTR*M  IW       V02.6  HON  12-MAR-83  11127121 

0CNC0D>0ENC0D/-SP-0ENC0D/CD!EI8/LIi7 


PAGE  001 


0001 
0002 
0003 
0004 
OOOS 
0006 
0007 


C 
C 
C 

c 


PROGRAM  TO  DEMONSTRATE  THE  CODE  GENERATED  BY 
THE  .  ORTRAN  IV  COMPILER 

DIMENSION  RARRAYdOtlO) 

DATA  N/4/»I/2/ 

I-(3«2-5)*<N««2> 

J-(I^100)«(N««2) 

A-2.0 

RARRAY  ( 2 1 1  >  -RARRA  Y  <  1  >  1  >  -t-A 


FORTRAN  IV  STORAGE  MAP  FOR  PROGRAM  UNIT  .MAIN. 

LOCAL  VARIABLESf  .PSECT  «DATA»  SIZE  >  000634  ( 

NAME  TYPE  OFFSET  NAME  TYPE  OFFl>ET 
A  R«4  000626  1  I«2  000622 
N       I«2    000620 


206.  WORDS) 


NAME 
J 


TYPE 
I«2 


LOCAL  AND  COMMON  ARRAYS! 

NAME      TYPE    SECTION  OFFSET   SIZE DIMENSIONS 

RARRAY  R«4  V»c  tDATA    000000   000620  (   200.)  (10»10) 


FORTRAN  IV 


000006 
000014 
000020 
000024 
000030 
000034 
000040 

000044 
000050 
000052 
0000S6 
000062 

000066 
000072 
000100 

000104 
000110 
000114 
000120 
000124 
000130 
000134 
000140 

000144 
OOOISO 


GENERATED  CODE  FOR  PROGRAM  UNIT  .MAIN. 


i    STATEMENT  40003 


MOV 

•3>»«0TSV 

MOV 

Ni-<SP) 

MOV 

•2f-<SP) 

JSR 

PC.«XII 

MOV 

<8P)*f T»CL 

MOV 

TtCLfRO 

MOV 

ROiI 

INC 

VtOTSV 

MOV 

ROfRl 

ADD 

•l44rRl 

MUL 

TtCL.Rl 

MOV 

Rlt  J 

INC 

»»OTSV 

MOV 

•40400f A 

CLR 

Af2 

INC 

••0T8V 

NOV 

A+2.-<SP) 

MOV 

A.-(SP) 

MOV 

RARRAY42f-(SP) 

MOV 

RARRAY i-(8P) 

JSR 

PC.tADDF 

MOV 

(SP)*.RARRAY*4 

NOV 

<8P)>fRARRAY«6 

INC 

ttOTSV 

RTI 

PC 

I  STATEMENT  40004 


»  STATEMENT  #0005 


»  STATEMENT  40006 


»  STATEMENT  40007 


OFFSET 
000624 
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2.2.3   Selecting  Threaded  or  In-Line  Code 


When  the  compiler  generates 
option) ,  the  object  program  p 
to  perform  each  operation  r 
executable  program  consists  o 
library  routines  and  appropriat 
generation  produces  an  objec 
hardware  arithmetic  configurati 
FORTRAN  IV  OTS  libraries  to 
each  type  of  arithmetic  hardwar 


threaded  cod 
roduced  uses  a 
equired  for 
f  a  "threaded" 
e  operand  addr 
t  module  that 
on.   It  may  be 

produce  a  val 
e  without  any 


e   (through   the   /CD:THR 

symbolic  library  routine 

program   execution.    The 

list  of  the  addresses  of 

esses.   This  type  of  code 

operates  independently  of 

combined  with  any  of  the 

id  executable  program  for 

need  for  recompi lat ion . 


Consider  the  following  when  you   decide   whether   to   use   in-line   or 
threaded  code. 

•   When  the  program  does  not  contain  RE^L*4,  REAL*8,  or  C0MPLEX*8 
arithmetic  operations; 

In-line  code  always  executes  faster  *h^n  threaded. 

The  difference  in  size  between  in-line  and  threaded  code   s 
slight . 


•   When  the  program  contains  large  amounts  of  REAL*4,  REAL*8,  and 
C0MPLEX*8  arithmetic  (scientific  computation): 

Threaded  code  is  much  smaller  than  in-line  code. 

Execution  speed  is  nearly  the  same  for  both. 

See  Table  2-2. 


Table  2-2:   Comparison  of  Threaded  and  In-Line  Code 
for  the  Statement:  I-J*K4^REAL 


Threaded  Code 


In-Line  Code 


MOi$MS  J 

MUI$MS  K 

CFI$ 

ADFSMS  REAL 

C1F$ 

MOISSM  I 


For  FIS 

MOV   J,R1 

MUL   K,R1 

MOV   R1,-(SP) 

JSR   PC,SCVTIF 

MOV   REAL*2,-(SP) 
MOV   REAL,-(SP) 
PADD  SP 

JSR   PC,$CVTFI 

MOV   (SP)»,I 


^  For  BIS 

MOV  J,R1 

MUL  K,R1 

MOV  R1,-(SP) 

JSR  PC,$CVTIF 

MOV  REAL+2,-(SP) 

MOV  REAL,-(SP) 

JSR  PC,$ADDF 

JSR  PC,$CVTFI 

MOV  (SP)+,I 


For  EAE 

MOV  #$EAE,R1^ 

MOV  J,(R1)+ 

MOV  K,»R1 

MOV  - (Rl) ,- (SP) 

JSR  PC,$CVTIF 

MOV  REAL+2,-(SP) 

MOV  REAL,-(SP) 

JSR  PCSADDF 

JSR  PCSCVTFI 

MOV  (SP)+,I 


I.  $EAE  represents  the  address  of  the  KEll-A  (or  -B)  accumulator  register 
(AC). 
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2.2.4   Code  Select io/i  and  Error  Detection 

When  the  compiler  produces  in-line  code,  the  object  program  executes 
at  greater  speed.  Inline  code  achieves  this  optimization,  in  part,  by 
omitting  instructions  to  detect  or  report  certain  error  conditions. 
However,  you  can  still  generate  code  for  error  checking  by  including 
the  /CD:THR  option  in  the  compiler  command  line.  Table  2-3 
demonstrates  the  diagnostic  benefits  of  the  threaded  code  option. 


Table  2-3:   Code  Selection  and  BEEor  Detection 


ErEor 


Result 


In-Line  Code 


Threaded  Code 


The  result  of  an 
integer  multiply 
operation  over- 
flows the  value 
representable  in 
a  1-word  integer. 

A  divide  by  zero 
occurs  during 
integer  arithmetic, 


The  value  of  the 
arithmetic  expres- 
sion of  a  computed 
GOTO  is  less  than 
1  or  greater  than 
the  number  of 
labels  in  the  list 


No  diagnostic  message 
is  produced . 
Execution  continues 
and  the  result  is 
truncated  to  sixteen 
bits . 

No  diagnostic  message 
is  produced  and  the 
result  of  the  opera- 
tion is  undefined. 


No  diagnostic  message 
is  produced.  Execution 
continues  at  the  next 
executable  statement. 


A  fatal  error  occurs 
and  the  diagnostic 
message:  Error  70 
INTEGER  OVERFLOW 
is  produced. 


A  fatal  error  occurs 
and  the  diagnostic 
message  Error  71 
INTEGER  ZERO  DIVIDE 
is  produced. 

The  warning  diagnos- 
tic Error  91  computed 
GOTO  OUT  OF  RANGE  is 
produced.  Execution 
continues  at  the 
next  executable 
statement. 


2.3   PROCESSOR-DEFINED  PONCTIONS 

The    compiler    generates    in-line   code 
processor-defined  functions: 


fOE 


the    following 


Function  Definition 

lABS(I)  Integer  absolute  value 

IDIM(l,J)  Integer  positive  di^'ference 

ISIGH(I,J)  Integer  transfer  of  sign 

MOD(I,J)  Integer  remainder 

MINO(I,J)  Integer  leinimum  of  integer  list 

MAXO(I,J)  Integer  maximum  of  integer  list 

IPIX(A)  Real  to  integer  conversion 

FLOAT(I)  Integer  to  real  conversion 
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Function  Definition 

REAL(C)  Complex  to  real  conversion,  obtain  real  part 

DBLE(A)  Real  to  double  conversion 

SNGL(A)  Double  to  real  conversion 

Since  the  code  for  a  processor-defined  function  is  generated  by  the 
compiler,  no  global  reference  to  the  function  name  is  produced.  A 
problem  could  arise  when  the  function  call  should  be  interpreted  as  a 
call  to  a  user-written  routine.  To  force  the  compiler  to  treat  the 
processor-defined  function  reference  as  a  reference  to  a  user  routine, 
specify  the  routine  as  external  to  the  program  with  an  EXTERNAL 
statement.  ,i* 

For  example,  when  compiling  the  statement: 

I  »  lABS(J) 

code  equivalent  to  the  following  is  produced: 


MOV 
BPL 
NEC 


J,    I 

1$ 

I 


1$; 


By  including  the  statement: 

EXTERNAL  lABS 

code  equivalent  to  the  following  will  be  produced: 

.GLOBL  lABS 

MOV  »J,-(SP' 

MOV  #1,-(SP) 

MOV  SP,R5 

JSR  PC, TABS 

CMP  (SP)+,(SP)+ 

MOV  RO,I 


2.4   VIRTOAL  ARRAY  OPTIONS 

The  FORTRAN  VIRTUAL  statement  declares  arrays  that  are  assigned  apace 
outside  the  program's  address  space  and  are  manipulated  through  the 
VICTUAL  array  facility  of  FORTRAN  IV.  VIRTUAL  allows  arrays  to  be 
stored  in  large  data  areas  that  are  accessed  at  high  speed. 


NOTE 

VIRTUAL  arrays  are  supported  only  on 
operating  systems  that  support  the 
Memory  Management  Directives. 
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2.4.1   Liait*  on  VIRTUAL  Bl«i«nts 


VIRTUAL  arrays  ar 
total   storage   a 
partition  is  avai 
to  the  number  or 
access.   The  maxi 
Thus  the  largest 
The  largest  REAL* 
is   a   total   of 
limit  is  32767  el 
to  be  positive  in 


e  limited  only  by  the  number  of  elements,  not  by  the 
vailable.  All  unused  main  memory  in  the  task's 
lable  for  VIRTUAL  array  storage.  There  is  no  limit 
to  the  total  size  of  all  VIRTUAL  arrays  a  program  can 
mum  number  of  elements  in  •  VIRTUAL  array  is  32767. 
LOGICAL*!  VIRTUAL  array  is  16K  words,  or  32767  bytes. 
8  VIRTUAL  array  is  128K  words  or  262136  bytes.  This 
32767  elements,  each  of  which  occupies  8  bytes.  The 
ements  because  FORTRAN  IV  requires  array  subscripts 
tegers. 


2.4.1.1  VIRTUAL  and  DIHBIISIOM  StatasMnta  -  The  syntax  of  the  VIRTUAL 
stateaant  is  identical  to  that  of  the  DIMENSION  statemer 1  and  involves 
only  substituting  the  keyword  VIRTUAL  for  the  keyword  DIMENSION. 
However,  there  is  a  significant  semantic  difference  b>-tween  the  two 
because  of  the  limitations  imposed  on  the  DIMENSION  statement.  Local 
arrays  declared  by  the  DIMENSION  statement  are  limited  by  the  maximum 
memory  evai lable  to  the  program.  Section  2.4.2  demonstrates  how  to 
convert  an  existing  program  to  use  the  VIRTUAL  feature. 


2.4.1.2  PtaiBory  Allocation  foe  VIRTUAL  Arrays  -  The  OTS  initial ites 
VIRTUAL  arrays  by  using  memory  management  directives  to  allocate  a 
region  of  the  required  site  from  free  memory  in  a  system  controlled 
partition.  This  ration  must  be  a  «.'>ntiguous  portion  of  physical 
••■ocy  large  enough  to  include  all  VIRTUAL  arrays  declared  in  the 
program. 

Failure  to  obtain  sufficient  memory  results  m  a  fatal  OTS  error. 

A  window  of  4K  words  initially  maps  the  first  4R  words  of  the  VIRTUAL 
array  region.  Mhen  a  VIRTUAL  arrcy  element  lies  outside  the  window,  a 
Memory  Management  directive  causes  a  resiap  operation  to  allow  access. 


2.4.2   Converting  a  Fcoqraa  to  VIRTUAL 


sure  to  ibserve  the  usage  restrictions   tor   VIRTUAL   arrays 
in   the   POP- 11   FORTRAN   IV  Language  Reference  Manual .   To 


VIRTUAL 
requi re 


First,  be 

described  

conver*  the  existing  program,  "JecTare  the  arrays  by  using  tRe 
instead   of   the   DtNBNSION   .catemen  .    The  program  does  not 
additional  acceaa  coding. 

The  following  example  illustrates  general  program  conversitn. 

1.  Identify  the  non-VIRTUAL  arrays  that  are  to  be   converted   » ** 
VIRTUAL  arrays. 

2.  Lorate  the  DIMBH810N  and  the  type  declaration   statements   in 
which   th«««   arraya   are   declared.    Replace  DIMENSION 

atalMMnta   with   equivalent   VIRTUAL   statements.     Replace 

array-declarative  type  declaration  statements  with  VK'TUAL 
stateaenta  to  define  the  array  disiensiona,  and  remove  the 
dtawnsioning  inf  onset '.  .^n  from  the  type  declaration 
•tatevents. 
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Compile  the  program.  Observe  all  compilaVion  errors;  these 
will  occur  where  the  syntax  restrictions  outlined  in  the 
PDP- 1 1  PORTPAM  IV  Language  Reference  Manual  have  been 
violated^  In  some  cases,  you  may  need  to  reformulate  the 
data  structures  to  use  VIRTUAL  arrays  effectively. 


Check  the  code  to  ensure  that  VIRTUAL 
passed  corr«(Ctly  to  subprograms. 


array   parameters   are 


a.   If  the  argument  list  of  a   subprogram   call 
unnubscr  iptCK)   VIRTUAL   array   name,  the  arg 
the   SUBROUTINE   cc   FUNCTION   statement   mu 
unsubs-^r  ipted   VIRTUAL   array   name   in  its 
dusny  a'gument.   This  establishes  access  to 
array  for  the  suoprogram.   The  declaration  o 
array  in  the  subprogram  must  be  dimensionall 
with  the  VIRTUAL  declaration  in  the  calling 
changes   to   the   VIRTUAL   array   that   occu 
subprogram  execution  are  retained  when  contr 
the  calling  program. 


includes  an 
ument  list  of 
St  have  an 
corresponding 

the  VIRTUAL 
f  the  VIRTUAL 
y  compatible 
program.  All 
rred  during 
ol  returns  to 


Nhen  you  p^iss  entire  arra>4  as  subprogram  parameters,  be 
certain  that  the  matching  arguments  are  defined  as  both 
VIRTUAL  or  both  non-VIRTUAL.  Mismatches  of  array  types 
are  not  detectable  at  either  compilation  or  execution 
time,  and  the  results  are  undefined. 


• 


•■& 


i 


If  the  argument  list  of  a   subprogram  refer 
reference  to  a  VIRTUAL  array  element,  the 
parameter  in  the  SUBROUTINE  or  FUN^TIO.^  at 
a   non-VIRTUAL  variable.   Value  assignment 
parameter  occurring  within  the  subprogram 
the   stored   value   of   :he   VIRTUAL  array 
calling  fcoqtam.      To  alttr  the  value  of  th 
calling    program  must   include   a   separ 
statement   that   references   the   VIRTUAL 
d  1  r  ec  1 1 y  . 


ence  includes  a 

matching  formal 

atement  must  be 

a  to  the  formal 

do   not   alter 

element  in  the 

at  element,  th«> 

ate   assignment 

array   element 


The  following  example  demonstrates 
arrays  to  VIRTUAL  arrays. 


the  process  of  changing  non-VIRTUAL 


DIHCNSiON  A (1000,20) 

INTRGER«2  B(IOOO) 

DATA  B/10000*0/ 

CALL  ABC(A,B,I000,20) 

NRITE  (2,*) (A(I,L) ,1-1,1000) 

END 


10 


SUBROUTINE  ABC(X,Y,N,M) 

DIMENSION  X(N,N} 

INTEGER*  2  MN) 

DO  10,  I-1,N 

X(I,l)-Y(n 

RETURN 

END 


This  program  contains  two  arrays,  named  A  and  B. 

Array  A  is  declared  in  a  DIMENSION  statement  and  is  of  the  default 
data  type.  Thus,  substituting  the  keyword  VIRTUAL  for  the  keyword 
DIMENSION  IS  sufficient  for  Its  conversion. 


^ot'«,  however,  that  array  B  mnd    its  dimensions  are  declared 
icclaration  statcMsent  (in  the  second  l<ne  of  the  program). 


in  a 


typ« 
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To  convert  B  into  a  VIRTUAL  array,  its  declarator  must  be  moved  to  a 
VIRTUAL  statement;  also,  the  variable  B  must  remain  in  the  type 
declaration  statement,  but  without  a  dimension  specification. 

A  and  B  are  both  passed  to  subroutine  ABC  as  arrays,  rather  than  array 
elements.  Thus  the  associated  subroutine  parameters  must  also  be 
converted  to  VIRTUAL  arrays. 

Tho  following  listing  shows  the  program  after  the  conversion  is 
completed : 


FORTRAN  IV       V02.6 
VIRTUAL f VIRTUAL/ -SP-VIRTUAL 


HON  12-HAR-83  11:22:28 


PAGE  001 


0001  VIRTUAL  A<1000>20>>B(1000> 

0002  INTEGER*2  B 

0003  DO  S  !-lf 1000 

0004  5  B(I>-0 

0005  CALL  ABC(AfBi 1000i20) 

0006  URITE(2f«>  (A(I > 1) r I«l>1000) 

0007  END 


FORTRAN  IV  STORAGE  NAP  FOR  FROGftAH  UNIT  .MAIN. 
LOCAL  VARIABLES'  .PSECT  tDATAf  SIZE  =  000006  < 

NAME    TYPE   OFFSET      NAME    TYPE   OFFSET 
I        It2    000000 


3.  WORDS) 
NAME    TYPE   OFFSET 


VIRTUAL  ARRAYS»  TOTAL  SIZE  =    00240200  (   41024.  UORDS) 

HAHE      TYPE     OFFSET    SIZE ---  DIMENSIONS 

A       R«4  V*c   00000000   00234200  (   4o000.>  (1000<20) 
i       1*2       00234200   00003720  (    1000.)  (1000) 

SUBROUTINES'  FUNCTIONS*  STATEMENT  AND  F  ROCESSOf^ -DEF  I  NED  FUNCTIONS: 

NAME   TYPE     NAME    TYPE    NAME    TYPE    NAME    TYPE    NAME    TYPE 
ABC     R«4 


FORTRAN  IV       V02.6 
VIRTUAL. VIRTUAL/ -SP-VIRTUAL 


MON  12-MAR-83  11122:29 


PAGE  001 


0001 
0002 
0003 
0004 
0003 
000* 
0007 
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SUBROUTINE  ABC(XtYtHtN) 

VIRTUAL  T(N>rX(N«H) 

INTE0ERII2    Y 

DO  10  I-l.N 

X< III >-V(  I  ) 

RETURN 

END 


FORTRAN  IV  STORAGE  MAP  FOR  PROGRAM  UNIT  ABC 
LOCAL  VARIABLES'  .PSECT  «DA1A.  SIZE  -  000012  < 


5.  WORDS) 
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MAME    TYPE   OFFSET      NAME 
I       1*2    000010      H 

VIRTUAL  ARRAYS*  TOTAL  SIZE  - 


NAHE 
X 

y 


TYPE 
R*4    0 
I«2    9 


OFFSET 
000000 
000002 


TYPE   OFFSET 
I«2  9    000004 

00000000  ( 


-SIZE- 
( 
( 


«««* 
««»« 


NAHE 
N 

0.  UORDS) 


TYPE   OFFSET 
I«2  9    000006 


DIMENSIONS 

(NtH) 

(N) 


2.5   PDP-11  FORTRAN  IV  CALLING  SEQOBNCB  CONVENTION 

This  calling  sequence  convention^  is  compatible  with  all  PDP-11 
processor  options.  In  addition  to  providing  for  reentrancy,  it  is 
fast  and  short,  and  conforms  to  system  hardware/software  interface 
requirements. 


2.S.1  Call  Site 

The  basic  form  of  the  call  is: 
;   IN  INSTRUCTION-AREA 
MOV  #LIST,R5 
JSR  PC, SOB 


.•ADDRESS  OF  ARGUMENT  LIST  TO 
;  REGISTER  5 
;CALL  SUBROUTINE 


;IN  DATA-AREA 


LIST: 


.BYTE  K,0 
.WORD  ADRl 

.MORO  ADRN 


; NUMBER  OF  ARGUMENTS 
;FIRST  ARGUMENT  ADDRESS 

;N'TH  ARGUMENT  ADDRESS 


Note  that  the  byte  at  address  LIST>1  should  not  be  referenced  since  it 
is  undefined.   This  byte  is  reserved  for  use  as  defined  by  DIGITAL. 

The  value  -1  (177777  octal)  is  stored  in  the  argument  list  as  the 
address  of  any  null  argument.  This  address  causes  an  error  at 
execution  time  if  the  called  routines  are  unable  to  handle  null 
arguments.  The  most  probable  errors  are  illegal  memory  reference  and 
word  reference  to  odd  byte  address.  Null  arguments  in  CALL  statements 
appear  as  successive  commas,  for  instance,  CALL  SUB  (A,  ,B) . 

The  following  is  an  example  of  argument  transmission:  An  assembly 
language  subroutine  is  written  to  sum  all  integer  arguments  it  finds 
in  each  parameter  list,  and  to  return  the  result  to  the  FORTRAN  IV 
program  as  the  value  of  a  final,  additional  argument.  The  FORTRAN 
CALL  statements  that  invoke  this  routine  take  the  form: 

CALL  IADD(numl ,num2 , . . . ,numn, isum) 

numl  through  numn 

A  variable  number  of  integer  quantities  to  be  summed. 


).  This  convention  Is  the  same  as  that  used  with  PDP-11  FORTRAN  under 
RT-11  and  RSTS/E.  It  differs  significantly  from  the  convention  used 
with  FORTRAN  under  the  PDP-11  DOS/BATCH  operating  system. 
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isum 


The  variable  or  array  element  into  which  the  sum  is  to  be  placed, 
Given  the  following  MACRO-11  subprogram: 


;GET  t  OF  ARGUMENTS 
; PREPARE  WORKING  REG. 
;FIND  $  OF  TERMS  TO  ADD 
;ADD  NEXT  TERM 
; DECREMENT  COUNTER 
;LOOP  IF  NOT  DONE 
; RETURN  RESULT 
; RETURN  CONTROL 

the  sequence  of  FORTRAN  IV  calls: 

CALL  I ADD (1,5, 7, I) 

CALL  IADD(15,30,10,20,5,J) 

would  cause  the  variable  I  to  be  given  the  value  13,  and  the   variable 
J  to  be  assigned  the  value  80. 


.TITLE 

ADDER 

.GLOBL 

I  ADD 

I  ADO: 

MOV 

(R5)+,R0 

CLR 

Rl 

DECB 

RO 

19 1 

ADD 

e(R5)+,Rl 

DECB 

RO 

BNE 

1$ 

'.' 

MOV 

Rl,e(R5)+ 

RTS 

PC 

2.5.2   Return 

You  return  control  to  the  calling  program  by  restoring  (if   necessary) 
the  stack  pointer  co  its  value  on  entry  and  executing: 


RTS 


PC 


2.5.3   Reqistcr  Oaaq*  Conventions 

Be  sure  to  save  any  values  in  registers  RO  through  R4  that  a  calling 
program  requires  after  a  return  from  a  subprogram.  You  cannot  assume 
that  the  argument  list  pointer  in  register  R5  is  valid  after  return. 


2.5. 3. i  Savinq  Floating-Point  Raqistars  -  Conventions  for 
floating-point  registers  are  similar  to  those  for  general  purpose 
registers.  If  a  Floating  Point  Processor  (FPU)  is  present  on  a 
system,  the  calling  program  must  save  and  restore  any  floating  point 
register  it  uses.  The  calling  program  cannot  assume  that  the  called 
routine  restores  floating  point  status  bits  I/L  (integer/long  integer) 
or  P/D  (floating/double  precision). 


2.5.3.2  Subproqraa  Reqiater  Osaqe  -  A  subprogram  th 
FORTRAN  IV  program  may  freely  use  processor  regis 
registers  F0-F5.  The  FORTRAN  IV  Object  Time  System 
FPU  status  bit*  are  set  by  default  to  I  (short  i 
(short  floating  mode).  The  called  program  that  cha 
■ust  save  the  FPU  status  on  entry  (with  an  STFPS 
and  restore  it  prior  to  exit  (with  an  LDFPS  (SP)^  i 
calling  program  must  restore  the  processor  hardwar 
its  original  value  when  a  subroutine  returns  control 
PC). 


at  is  called  by  a 
ters  R0-R5  and  FPP 
assumes  that  the 
nteger  mode)  and  F 
nges  these  modes 
-(SP)  instruction) 
nstruct  ion) .  The 
e  stack  pointer  to 
(by  means  of   RTS 
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2.5.4   Function  Return  Values 

Function  subprogLams  return  a  single  result  in  the  hardware  registers. 
The  register  assignments  for  returning  the  different  variable  types 
are  listed  in  Table  2-4. 


2.6   VECTORED  ARRAYS 

Array  vectoring  decreases  the  time  necessary  to  reference  elements  of 
a  multidimensional  array  by  using  additional  memory  to  store  the 
arrav. 


Table  2-4:   Return  Value  Convention  for  Function  Subprograms 


Type 


Result  in 


INTEGER* 2 
LOGICAL*! 
INTEGER*4 
L0GICAL*4 


REAL 


RO 

RO 
Rl 

RO 

Rl 


low-order  result 
high-order  result 

high-order  result 
low-order  result 


DOUBLE 
PRECISION 


COMPLEX 


RO 
Rl 
R2 
R3 

RO 
Rl 
R2 
R3 


—  highest-order  result 


■-  lowest-order  result 


high-order  real  result 
low-order  real  result 
high-order  imaginary  result 
low-order  imaginary  result 


2.6.1  Calculating  Blesient  Locations 

Since  multidimensional  arrays  are  stored  sequentially  in  memory, 
certain  address  calculations  determine  the  location  of  individual 
elements.  Typically,  a  mapping  func*:ion  performs  this  calculation. 
For  example,  to  locate  the  element  LIST(1,2,3)  in  an  array  dimensioned 
LIST(4,5,6),  use  the  following  function  equivalent.  This  function 
identifies  a  location  as  an  offset  from  the  base  of  the  array  storage. 

(sl-1)  ♦  dl  *  (s2  -  1)  ♦  dl  *  d2  •  (S3  -  1)  ■ 
(0)*4*(    l)*4*5*(2)-44 

where  ai  >  subscript  i 
di  •  dimension  i 

Since  such  a  mapping  function  requires   multiplication   operation (s) , 

and    some    PDP-11   hardware  configurations   do   not   have   the   MUL 

instruction,  the  compiler  can  reduce  execution  time  at  the  expense   of 

memory  storage  by  "vectoring"  some  arrays. 
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2.6.1.1  Declaring  Array  Bounds  -  Since  array  vect 
declared  dimensions  of  the  array,  you  must  ensure 
arrays  are  within  their  declared  bounds.  A  refe 
declared  bounds  of  a  vectored  array  causes  unpredi 
example,  a  program  interrupt).  You  must  give  parti 
arrays  passed  to  subprograms  whrre  the  dimensi 
subprogram  differ  from  those  specified  in  the  cal 
such  cases,  two  sets  of  vectors  are  created: 
program  and  one  for  the  subprogram.  The  subprogram 
that  portion  of  the  array  declared  by  the  subpr 
FORTRAN  IV  Language  Reference  Manual  contains  mo 
dimensions . ) 


ors  map  only  the 
that  references  to 
rence  outside  the 
ctable  results  (for 
cular  attention  to 
ons  declared  in  the 
ling  program.  In 
one  for  the  calling 
vectors  map  only 
ogram.  (The  PDP-11 
re   information   on 


2.6.1.2  Locating  a  Specific  Element  -  A  specific  element  in  a 
vectored  array  can  be  located  without  the  need  for  multiplication  by  a 
simplified  mapping  function  that  uses  a  table  lookup  to  determine  the 
location.  For  example,  a  vectored,  two-dimensional  array  B(5,6) 
automatically  has  associated  with  it  a  one-dimensional  vector  that 
would  contain  relative  pointers  to  each  column  of  array  B.  The 
location  of  the  element  B(ra,n),  relative  to  the  beginning  of  the 
array,  could  then  be  computed  as: 

vector (n)  +  m 


using   only   addition   operations, 
vectoring  process. 


Figure   2-1   depicts   the    array 


Array  B 

(5.6) 

Associated 

B(1.1) 

P1 

Vector 

B(2.1) 

0  P1 

B(3.1) 

5  P2 

B(4.1) 

10  I  3 

B(5,1) 

15  P-» 

B(1.2) 

P2 

20  P5 

B(2.2) 

25  P6 

B(3.2) 

The  location  of  element  B(m.n) 

Vectorin)  •  m 

B(1  6) 

P6 

B(2,6) 

or   the  location  of  B(4,3) 

B(36) 

B(4.6) 

Vector  (3)  .  4      10  .  4      14 

BI5.6) 

ZK. 1182  82 


Figure  2-1:   Array  Vectoring 


2.6.1.3  Nenory  Required  for  Array  Vectoring  -  The  compiler  bases  the 
decision  to  vector  a  multidimensional  array  on  the  computed  ratio  of 
the  space  required  to  vector  he  array  to  the  total  storage  space  it 
requires.  The  array  is  not  vectored  if  this  ratio  is  greater  than  25 
percent.  >  standard  mapping  function  is  used  instead.  Arrays  with 
adjustable  dimensions  aco  never  vectored.  Vectored  arrays  are  noted 
as  such  in  the  storage  map  listing. 

The  compiler  option  /NOVA  suppresses  all  array  vectoring. 
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The  amount  of  memory  required  to  vector  an  array  is  the  sum  of  all 
arroy  dimensions  except  the  firit.  F'^r  example,  the  array  X(S0,10,30) 
requires  10>30>40  words  of  vectr  tablo.  Note  that  the  array  V(S,100) 
requires  100  woras  cl  vector  storage,  whereas  the  array  Y(100,5) 
requires  only  5  words  of  vector  storage.  It  is  good  prograsMing 
practice  to  place  an  amy's  largest  dimension  first  when  it  will  b« 
vectored. 


• 


2*(.1.4  Sharing  Vector  Tables  -  Wherever  possible,  vector  tables  4re 
Shared  among  several  different  arrays.  The  compiler  arranges 
shareable  vectors  under  the  following  conditions: 

1.   Array:  ace  in  the  same  program  unit. 


2.   For  the  ith  dimension  vector  to   be   shared   by   the 
diSMnsions    to   the   left   of   the   ith   dimension 
equivalent  in  each  array. 


arrays, 
lust   be 


For  example,  given  the  statement  IHENSION  A( 10, 10) ,8(10,20) ,  A  and  B 
•hare  a  20-word  vector  for  l.'ie  second  dimension  that  contains  the 
values  0,  10,  20,  30,  40,  SO,  «0,  70,  80,  90,  100,  110,  120,  130.  140, 
ISO,  160,  170,  180,  190,  of  which  the  array  A  uses  only  the  first  10 
elements. 


2.7   PROGRAM  SBCTIOaS 


Program  sections  (PSBCTs)  contain  code  and  drta  and  are  identified  by 
unique  names  as  segments  of  the  object  program.  The  attributes 
associated  with  each  .SECT  direct  the  Task  Builder  to  combine  several 
separately  compiled  FORTRAN  prf>gram  urits,  assembly  language  modules, 
and  library  routines  into  an  executable  program.  The  followinf 
attributes  are  associated  with  these  sections: 


Concatenate 

(COM) 

or 

Over  lay 

(ova) 

Data 

(D) 

•t 

Instruction 

(I) 

Global 

(CBL) 

or 

Local 

ILCL» 

Relocatable 

(RBL) 

or 

Absolute 

(AB8) 

Read/Write 

(RW) 

or 

Read-only 

(M) 

1.7.1   Csi^>ilmd  Code  PSBCT  Osa^s 


The  compiler  organiies  compiled  output  into  three  program  sections, 
«fhich  have  the  names,  attributes,  and  co.itrnts  show**  in  Table  2-S. 
Mhsn  the  Task  Builder  concatenate*  naawd  PSBCTs  with  the  COM 
attribute,  it  allocates  all  PSBCT6  with  the  same  name  together  tn 
sequence.  The  length  of  the  resulting  PSBCT  is  the  sum  of  the 
individual  sections  so  defined. 
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Tabl*  2-5:   Coapilcr  OKqinisation  of  Ptoqzam   Sections 


Section 


Attributes 


$CODE      RW^,  I,  LCL,  REL, 
CON 


$DATAP     RO,  D,  LCL,  RBL, 
CON 


$DATA      RN,  D,  LCL,  RPL, 
CON 


Contents 


All  executable  code,  including 
threaded  and  in-line,  for  a  program 
uni  ts. 

Pure  data  (constants,  FORMATS,  array 
vectors)  that  cannot  change  during 
progran  execution. 

Impure   data,    variables,   temporary 
storage,   and   arrays   u^ed   in   the 
FORTRAN  program. 


1.  The  RO/RW  attribute  for  . actions  SCODE  and  SDATAP  is  controlled   by 
the  compiler  'RO  command  option.   See  Table  1-2. 


n   Block  MBCT  Osage 


2.7.2 

FORTRAN  COMMON  Storage  is  placed  into  named  PSZCTs.  The  PSECT  name  is 
identical  to  the  COMMON  block  name  specified  in  the  FORTRAN  program. 
PSBCTs  used  for  COMMON  storage  are  given  the  attributes  RW,  D,  GBL, 
RCL,  OVR. 

For  example,  the  FORTRAN  statement: 

COMMON  /X/  A,B,C 

produces  the  equivalent  of  the  following  MACRO-11  code: 

.PSECT   X,  RN,  D,  GBL,  REL,  OVR 


,$$$$.;    thus    the 


A: 

.BLKN 

2 

B: 

.B4.KH 

2 

C: 

.BLKW 

2 

FORTRAN   blank   COMMON   uses   the   section   name 
statement : 

COMMON  C,B  /X/  A 

produces  the  equivalent  of: 

.PSECT    .SSS5.,  RW,  D,  iBL,  REL,  OVR 
C:    .BLKM   2 
B:    .BLKW   2 

.P8BCT   X,  RW,  D,  GBL,  REL,  OVR 
A:     .BLKW   2 

When  tho  Task  Builder  combines  PSECTs  with  the  OV!)  attribute,  it 
sPocstes  all  PSBCTs  with  the  same  name  together  beginning  at  the  same 
address.  The  resulting  PSECT  is  the  size  of  the  largest  individual 
section  so  combined. 
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2.7.3  OTS  Library  PSBCT  Usage 

The  OTS  module  $OTV  declares  a  number  of  sections  that  the  OTS  uses  as 
impure  working  storage. 

Section  $$AOTS  contains  a  general  work  area.  Section  $$DEVT  contains 
storage  for  each  FORTRAN  logical  unit.  The  TKB  UNITS  option 
specification  determines  the  size  of  $$DEVT. 

Section  $$0BF1  contains  storage  for  holding  the  compiled  form  of 
object  time  formats.  The  TKB  FMTBUF  option  specification  determines 
the  size  of  $$0BF1. 

Modules  included  in  the  OTS  library  and  referenced  by  the  compiled 
program  are  segmented  into  four  program  sections,  as  shown  in  Table 
2-6. 


Sect  ion 
Name 


Table  2-6:   Organization  of  OTS  Library  Hodules 


Contents 


OTSSI 
OTS$P 
OTS$D 
OTS$S 
OTS$F 
CVS$F 
CV$$I 
CV$$L 


Attributes 

RO, 

I, 

LCL, 

REL, 

CON 

RO, 

D, 

GBL, 

REL, 

OVR 

RO, 

D, 

LCL, 

REL, 

CON 

RW, 

D, 

LCL, 

REL, 

CON 

RW, 

I, 

GBL, 

REL, 

CON 

RW, 

I, 

GBL, 

REL, 

OVR 

RW, 

I, 

GBL, 

REL, 

OVR 

RW, 

I, 

GBL, 

REL, 

OVR 

All  pure  code  for  the  module. 

Pure  tables  of  addresses  of  other 
OTS  library  modules. 

Pure  data  referenced  by  the 
module . 

Scratch  storage  referenced  by  the 
module. 

Code  for  modules  $F10,  $LISTI, 
$LISTO 

Code  for  module  CONVF 
Code  for  module  CONVI 
Code  for  module  CONVL 


2.8   INPUT/OUTPOT  AND  PILE  CONTROL  SERVICES 

ALL   FORTRAN   input/output   operations   use  the   standard   facilities 

provided   by   File   Control  Services  (FCS) .  Consult  the  pertinent  RSX 

I/O  operations  manual  for  detailed  coverage  of  FCS. 
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2.8.1   Device  and  File  Nane  Conventicns 


FORTRAN 

logical 

unit 

system's   logical   un 

assignments  for 

each 

logical 

unit  d 

evice 

You  can 

change 

the  de 

using   the   RSX 

-IIM  a 

the  device  and 

file  n 

ASSIGN 

system 

subro 

conventions  also   app 

instance,  unit 

number 

numbers  correspond  one  for  one  with  the  operating 
its.  The  Task  Builder  makes  the  default  device 
logical  unit  allocated  for  a  task.  The  default 
and  file  name  assigments  are  listed  in  Table  2-7. 
fault  device  assignments  prior  to  execution  by 
nd  RSX-llM-PLUS  REASSIGN  command.  You  can  change 
ame  assignments  at  execution  time  by  using  the 
utine  (see  Section  B.2).  The  default  file  name 
ly  to  logical  units  not  listed  below:  for 
49  has  a  default  file  name  of  FOR049.DAT. 


Table  2-7:   FORTRAN  IV  Default  Logical  Device  Assignments 


Logical  On it 
Number 


Default  Device 


Default  File  Nane 


I 
3 

3 

4 
9 

( 


System  disk,  SY: 
System  disk,  SY: 
System  disk,  SY: 
System  disk,  SY: 
Requestor  Keyboard, 
System  listing  unti. 


Ti  : 
CL; 


FOR001.DAT 
FOR002.DAT 
FOR003.DAT 
FOR004.DAT 
FOR005.DAT 
FOR006.DAT 


2.3.1.1   Haxinnm  Number  of  Act 

combination   of   valid   logica 
maximum  number  of  units   that 
figure   derives  from  the  numbe 
buffers  required  for  each  logi 
simultaneously   active   units 
divided  by  the  number  required 
total   by   using   the   ACTFIL 
Because  logical  unit  numbers  a 
allocate  units  1  through  17  in 


ive  Units  -  Although  you  can  use  any 
1   unit   numbers,   the   system  imposes  a 

can  be  simultaneously  active.  This 
r  of  buffers  allocated  and  the  number  of 
cal  unit  (usually   1).    The   number   of 

equals  the  number  of  buffers  allocated, 

for  each  unit.  You  can  change  the 
Task  Builder  option  (see  Section  1.3.2). 
re   allocated   consecutively,   you   must 

order  to  use  units  2  and  17. 


2.8.1.2  Closing  a  Logical  Onit  -  When  a  logical  unit  is  closed,  the 
system  reestablishes  the  default  file  name  assignment  that  existed  at 
the  start  of  task  execution.  The  default  device  assignment  becomes 
undef  ined . 


NOTE 

A  CLOSE  operation  does  not  affect  the 
device  assignment  to  a  logical  unit. 
However,  this  convention  is  subject  to 
change  in  future  releases  and  should  not 
be  relied  upon.  If  you  change  the 
device  assignment  of  a  unit  by  a  CALL 
ASSIGN  statement,  all  CALL  ASSIGN 
statements  referencing  that  unit  should 
specify  the  device  to  be  used. 
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Statements   Without   Onit 


2.8.2   Inplied   Onit   Numbers   for    I/O 
Specifications 

A  formatted  READ  statement  of  the  form: 

READ  f,list 
is  equivalent  to: 

READ(l,f ) list 

For  all  purposes  these  two  forms  function  identically.  Assigning 
logical  unit  number  1  to  the  terminal,  for  example,  in  both  cases 
causes  input  to  come  from  the  terminal. 

The  ACCEPT,  TYPE,  and  PRINT  statements  also  have  similar  functional 
analogies.  The  PRINT,  ACCEPT  and  TYPE  statements  implicitly  reference 
logical  units  6,  5  and  5  respectively.   See  Table  2-8. 


Table  2-8:   Implied  Onit  Numbers 


Statement  Type 


Equivalent  Form 


READ 

f. 

list 

PRINT 

f. 

list 

ACCEPT 

{, 

list 

TYPE 

t, 

list 

READ  (Iff)  list 

WRITE  (6,f)  list 

READ  (5,f)  list 

WRITE  (5,f)  list 


2.8.3   FORTRAN  I/O  Operation  Supported  by  Device  Type 

Table  2-9  shows  the  RSX-11  system  devices  that  support  the  I/O 
operations  in  FORTRAN.  X  indicates  the  device  that  supports  the  I/O 
operation. 

Table  2-9:   PDP-11  FORTRAN  Standard  Peripheral  Devices 


— 

POBTRAH 
I/O  Ttn 

POUTRAH 
I/O  Oparatlona 

Saquant  tal 
roraattcd 

Saquant lal 
Unfotaattad 

Direct 
Accaaa 

READ 

WRITE 

BACKSPACE/ 
BNOriLE      REMIND 

OPEN/ 
CLOSE 

DIIK 

1 

1 

I 

1 

R          1 

X 

DCCtap« 

1 

t 

X 

X 

t                       X 

X 

n»<^ltp• 

a 

1 

1 

1         1 

X 

LtiM  Ptintvi 

1 

X 

Card  •••'l«f 

1  ' 

X 

T*l«lnal 

1 

1 

X 
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2.8.4   OTS/FCS  Record  Transactions 

Sequential  formatted  output  uses  the  PCS  PUT$S  Macro  to  write 
variable-length  records.  Sequential  formatted  input  uses  the  FCS 
GET$S  macro  to  read  variable  or  fixed-length  records. 


Direct   access   I/O   uses 
fixed-length  records. 


the  macros   GET$R   and   PUT$R   to   process 


Sequential  unformatted  I/O  operations  also  use  GET$S  and  PUT$S,  but 
add  a  segment  superstructure  over  and  above  that  provided  by  FCS.  A 
FORTRAN  unformatted  record  consists  of  one  or  more  FCS  variable-length 
records. 


2.8.4.1  PCS  Control  Infocaation  -  The  first  two  bytes  of  each  FCS 
record  are  control  information,  as  fallows.  Two  bits  of  the  segment 
control  word  are  used.  The  ] owest-order  bit  specifies  the  FCS  record 
as  the  fitst  record  of  a  FORTRAN  unformatte<3  record.  The  next  bit 
specifies  that  the  FCS  record  is  the  last  segment  of  a  FORTRAN 
unformatted  record.  All  four  combinitt ions  cf  these  two  bits  are 
possible.  For  example,  in  the  case  of  a  short  unfocr.  ntned  record  that 
is  contained  in  exactly  one  PCS  record^  ooth  bits  are  set. . 


2.8.S   OTS/PCS  Pile  Open  Conventional 


The  execution 
I/O   activity 
logical  unit. 
speci  f icat  ions 
on  the  type  of 


of  a  READ  or  WRITE  statement  opens  t  file  or  device   for 

provided   that  no  file  or  device  is  already  open  on  the 

The  type  of  FCS  OPEN  operation  invoked  i  :3  based  on   the 

(explicit   or  implied)  in  the  CALL  FOBSET  statement  or 

I/O  statement,  as  follows: 


READ  statement 


OPSNp'J 


WRITE  statement 
CALL  FDBSET 


OPENJ?W 


'OLD' 

'NEW' 

'APPEND' 

'READONLY' 

'UNKNOWN' 

'MODIFY' 

' ISUP' 

■SHARE' 


OPENSU 

OPENSW 

OPEN$A 

OPEN$R 

OPEN$U; 

OPEN$M 

OPEN$W; 


if  no  such  file  0PEN5W 

FA.NSP  set 
FA.SHR  set 


Piles  created  for  formatted  input/output   t«ke 
control  attribute  (PD.F'   in  field  F.RATT). 


the   FORTRAN   carriage 


2.t.S.l  Pile  8tor«ge  Allocation  -  Unless  specified  in  FDBSET  (see 
Section  B.ll),  no  file  storage  is  allocated  a^  the  tiire  a  file  in 
created.  FCS  dynamically  allocates  file  stor^qe  as  needed.  For 
direct  access  files  this  means  that  the  file  st  age  actually  written 
will  be  allocated.  A  fatal  error  condition  will  result  from  a  direct 
access  READ  beyond  the  allocated  storage. 
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2.8.6   Auxiliary  I/O  Operations 


A  FIND  Statement 
an   I/O   list. 
record  number. 


is  similar  to  a  direct  access  READ  operation   without 
An  associated  variable  will  be  set  to  the  specified 


A  REWIND  statement  is  performed  as  an  PCS  .POINT  operation   specifying 
positioning  at  the  beginning  of  the  file  (block=l,  byte«»0)  . 


A  BACKSPACE  Statement  with  the 
performed  as  a  rewind  followed  by 
file  at  the  previous  record.  The 
count.    A   backspace   operation 


file  positioned  at  record  n  is 
n-1  successive  reads  to  position  the 
OTS  maintains  the  current  record 
cannot  be   performed  if  the  file  is 


opened  for  append  because  the  record  count 
OTS. 


is   not   available   to   the 


FCS 


An  ENDFILE  statement  writes  an  end-file  record.   Since 
support   an  end-file  record  concept,  the  following  interim 
is  used:   an  end-file  record  is  a   1-byte   record   that 
octal  code  32  (CTRL  Z) . 


does   not 

con</ention 

contains   the 


2.8.7   File  Sharing 

The  file  system  permits  more  than  one  task  to  access  files 
simultaneously.  Certain  considerations  must  be  understood  in  order  to 
appreciate  the  way  in  which  file  sharing  may  be  used.  You  must  give 
careful  attention,  when  you  use  shared  files,  to  the  inter-task 
coordination  required  for  reliable  performance. 


2.8.7.1  File  System  Sections  -  The  file  system  is  implemented  in  two 
distinct  sections,  called  File  Control  Services  (FCS)  and  File  Control 
Primitives  (FllACP). 

1.  FCS  executes  as  part  of  the  virtual  image  of  each  using  task; 
that  is,  it  executes  in  the  user  task  address  space.  Buffers 
and  control  blocks  are  also  maintained  in  an  impure  storage 
area  in  each  task.  Logically,  there  is  one  copy  of  FCS  for 
each  task  (although  normally  there  is  only  one  physical  copy 
of  the  code  in  a  shared  library). 

2.  FCS  defines  and  interprets  the  contents  of  a  file  in  other 
words,  the  record  structure.  (These  capabilities  are  fully 
described  in  the  pertinent  RSX-11  I/O  operations  refere.ice 
manual).  As  part  of  each  task,  FCS  reads  and  writes  the 
logical  blocks  of  a  file  and  maintains  the  current  image  of 
the  moat  recently  referenced  block. 

3.  FllACP  is  logically  a  single  task  that  services  all  tasks 
using  the  iile  system.  It  performs  all  device  management 
functions  associated  with  a  device  in  terms  of  the  physical 
blocks  of  storage  provided  by  the  hardware.  Except  for 
certain  special  data  structures  used  by  itself,  FllACP  gives 
no  interpretation  to  the  contents  of  data  stored  in  a  file. 


• 


• 
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2.8.7.2  Accassing  Sh«c*d  Fil«s  -  A  aitxed  record  image  can  result  when 
ttfo  tasks  access  a  shared  file  in  which  soise  of  the  records  cross 
block  boundaries.  Because  the  read,  modify,  and  rewrite  sequences 
performed  by  the  two  virtu<«l  PCSs  are  asynchronous  and  independent,  a 
record  can  occur  in  which  part  ot  the  data  was  written  by  one  task  and 
part  b/  another.  In  addition,  FCS  tries  to  minimise  disk  activity  by 
postponing  a  rewrite  in  ord«i  to  use  th«  n-task  buffer  image  to 
perform  a  subsequent  read  or  write.  Thus,  the  disk  image  of  the  file 
may  be  out  of  date  fo'  arbitrary  time  intervals.  This  problem  might 
be  enco-intered  on  both  smquential  and  <iirect  access  input/output. 


2.1.7.3  Closing  and  Rmopmning  a  Pile  -  A  problem  could  occur  with  the 
logical  end-of-file.  Mhen  you  extend  a  file,  the  disk  description  of 
the  logical  end-of-file  is  not  up«iated  until  the  file  is  closed.  If 
on*  task  opons  a  file  to  append  r>«w  records,  a  second  task  that  opens 
the  file  to  r^»d  the  newly  appended  data  will  not  be  able  to  do  so 
even  after  tn«  writing  task  has  closed  the  file.  The  reading  task  can 
access  the  nmw  records  only  by  closing  and  reopening  the  file. 


2.t      OTS  AMD  SMAHBAIILI  LISKAaiBS 

AM  OTS  modules  (with  the  eiception  ot  modules  SOTV,  SOPEN,  and  SOPCL) 
consist  of  pure  and  shareable  cade  and  data.  Ttwt  module  $0*^  consists 
of  impure  data  areas  that  th'  »  **aindei-  of  the  OTS  uses  for  temporary 
r«suJti,  logical  unit  contr**.  cables,  buffers,  and  other  activit.es. 
Tou  c^n  build  all  or  part  of  thm  OTS  i»to  a  s^tareable  library,  or 
incliidv  It  in  an  esisting  shareable  library. 

Tou  may  find  it  advantageous  to  create  such  a  common  area  -  a  library 
containina  ften  jsed  code  and  r  .rines  shared  by  many  tasks.  Several 
user  tasks  ^an  simul  *^aneously  «  .ss  the  routines  in  a  resident 
library,  rather  than  having  individual  users  "linking  in*  the  sa** 
code  many  times  for  each  task.  Co«boti  areas  can  signt  f  tcantly  red«*c« 
the  total  asMunt  of  mmaery  thmse  task*  t%—  !. 


2.9.1   T^•  OTS  and  Position  Indopei.dent  Code 

••cause  the  OTt  is  not  Position  Independent  Code  (PIC),  it  cannot  be 
included  in  a  PIC  shared  library.  This  restriction  applies  to  the 
system  shared  Kbrary,  PCSRCS,  »  .leh  is  PIC. 


2.9.1.1  Poratatted  I/O  bootines  in  Shared  Library  -  bear  in  mind  when 
you  build  shared  libraries  that  if  you  include  any  of  the  formatted 
I/O  routines  below  in  «  shared  library,  you  must  include  all. 


Module 
•fO 
iCOWL 
•COHVI 
•COMVP 
ILItTI 
SLISTO 


Clobal  Syateol 
tPIO 

LCIt,  LCOf 

ICIf,  tCOf,  OCU.  OCOt 
■CIS,  0CO$,    ECOt,  PCOi.  CCOS 
SILP 
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2.10   TBACBBACK  PBATCRB 

Traceback  --  a  feature  included  in  RSX  PORTRAN  IV  fatal  run-tiae  error 
■essaqes  --  locates  the  actual  prograa  un<t  and  lin^  nuaber  of  a 
run-tiae  error.  A  list,  i— icdiately  following  the  erior  Message, 
shoMs  the  line  nuaber  and  prograa  unit  naae  in  wiich  the  error 
occurred.  If  the  prograa  unit  is  a  SUBROUTINE  or  FUNCTION  subprograa. 
the  error  handler  tracrs  back  to  the  calling  prograa  un . t  and  displays 
the  nane  of  that  proaraa  unit  and  the  line  nuaber  where  the  call 
occur led.  This  process  continues  until  the  calling  sequence  has  been 
traced  back  to  a  specific  line  nuaber  in  the  aain  prograa.  This 
deteraines  the  exact  location  of  an  error  even  though  the  error  is  in 
a  deeply  nested  subroutine.   See  Figure  2-2. 


0001 
0002 
000  3 
0004 


A-0.0 

CALL  SUBl (A) 

CALL  EXIT 


0001 


SUBROUTINE  SUBl (B) 


0002 

CALL  SUB2  (B. 

OC.i 

RETURN 

0004 

END 

0001 

SUBROUTINE  SUB2(C) 

0002 

CALL  SUB3  (C) 

0003 

RETURN 

0004 

END 

0001 

SUBROUTINE  SUB3 (D) 

0002 

E-1.0 

0003 

P-E/D 

0004 

RETURN 

0005 

END 

Traceback  of  Fatal  Error: 


tsknaa  ERROR  73  FLOATING  ZERO  DIVIDE 


in    routine  "s\ib3   "  line  3 

froa  routine  "sub2   "  line  ? 

froa  routine  "subl   "  line  2 

froa  routine  ".aain."  line  2 


Figure  2-2:   The  Traceback  Feature 


Note  in  Figure  2-2  that  the  line  nuaber  in  the  traceback  of  routine 
*8I}B2*  is  siaply  a  question  aark  (?).  This  is  because  the  aodul»  was 
coaplled  with  the  /NOSN  option  in  effeqt  (see  Table  1-2). 
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PORTRAM  IV  SPECIFIC  CHARACTERISTICS 


This  chapter  applies  specifically  to  the  PORTRAH  IV  language  as  it 
operates  under  the  RSX-IIH  and  RSX-llN-PLUS  systems.  The  material 
presented  here  both  relaxes  the  restrictions  imposed  by  the  PDP-11 
PORTRAH  IV  Language  Reference  Manual  and  provides  additional  mctter ial 
essential  to  RSX-ll  users  but  not  covered  in  the  manual. 

Hote  that  these  deviations  from  the  PORTRAN  syntax  requirements  of  the 
■anual  apply  only  to  RSX-ll.  Your  resulting  program  cannot  be  freely 
transported  to  another  PDP-11  'iperating  system  without  careful 
planning  for  that  system's  peculiarities  and  language  requirements. 
RSX-ll  PORTRAH  IV  relaxes  the  strict  statement-ordering  specifications 
of  the  PDP- 1 1  PORTRAH  IV  Language  Reference  Manual  and  makes  only  the 
following  three  statement-ordering  requirements: 

1.  The  first  line  in  a  subprogram  must  be  a  FUNCTION,   SUBROUTINE 
or  BLOCK  DATA  Statement. 

2.  The  last  line  in  a  program  unit  must  be  an  END  statement. 

3.  Statement   functions  must  be   defined   before   they   are 
referenced . 

If  you  do  not  follow  the  statement-ordering  requirements  of  the 
manual,  the  compiler  will  issue  a  warning  diagnostic.  The  /HOHR 
option  suppresses  the  diagnostics. 


3.1   800RCB  LIHES 

A  valid  PORTRAN  IV  source  line  consists  of  the  following  sequence: 

1.  An  optional,  1-  to  5-chacacter,  numeric  stetement  label  in  the 
first  five  columns. 

2.  Enough  blanks  to  position  the  next  character  at  column  7.  For 
continuation  lines,  type  a  continuation  signal  character  in 
column  6  or  type  a  tab  character  followed  by  any  nonalphabetic 
character  to  signal  continuation. 

Type  only  a  tab  character  to  show   that   the   line   is   not   a 
cont  inuation. 

3.  A  valid  FORTRAN  statement,  or  a  continuation  of  a  statement. 

4.  An  optional  comment  field  delimited  on  the  left  by  an 
exclamation  point  (I). 
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FORTRAN  ignores  the  input  of   totally   blank   records, 
contain   a   FORTRAN   statement,   or   be  totally  blank; 
lines  that  contain  a  tab  and  an  optional  comment   field 
flagged  since  they  contain  no  valid  FORTRAN  statement. 


A   line   must 

in  particular, 

(!)   will   be 


3.2   VARIABLE  NAMES 

FORTRAN  IV  allows  variable  names  to  extend  past  six  characters  in 
length.  However,  only  the  first  six  characters  are  significant  and 
must  be  unique  among  all  variable  names  in  the  program  unit.  The 
compiler  will  issue  a  warning  diagnostic  for  each  variable  name  longer 
than  six  characters.  If  you  include  the  /NOWR  switch  in  the  compiler 
command  string,  this  diagnostic  will  be  suppressed. 


3.3   INITIALIZATION  OP  COMMON  VARIABLES 


FORTRAN  IV  allows  you  to  initialize  variables  in  COMMON,  including 
blank  COMMON,  in  any  program  unit  by  using  the  DATA  statement, 
linked  to  a  global  common  block  cannot  initialize 
blocks  residing  in  that  area.  Instead,  you  can  create 
block,  data-initialize  it,  and  define  FORTRAN  COMMON 
BLOCK  DATA  subprogram  (see  the  Task  Bui Ider  Manual  and 


However,  a  task 
FORTRAN  COMMON 
a  global  common 
areas   using   a 


the  PDP-11  FORTRAN  LV  Language  Reference  Manual) 


3.4   INPOT/OOTPOT  FORMATS 

FORTRAN  IV  allows  formatted  input  and  output  for  transferring  ASCII 
files  and  provides  unformatted  and  direct-access  input  and  output  for 
transferring  binary  records. 

Your  use  of  ERR»parameter  can  intercept  run-time  errors  and  transfer 
control  to  a  predetermined  program  label.  You  can  specify  this 
parameter  in  the  READ,  WRITE,  ENCODE,  or  DECODE  statement. 


3.4.1   Pornatted  I/O 

Thf  formatted  input/output  routines  read  or  write  variable-length, 
formatted  ASCII  records.  A  record  consists  of  a  number  of  ASCII 
characters,  transmitted  under  control  of  a  format  specification. 


3.4.2   Dlr«ct-Acc*as  I/O 

Th«  direct-access  input/ output  routines  read  or   write   fixed-length, 

unformatted   binary   records.    The   logical  record   structure   for  a 

direct-access  file  is  described  in  the  DEFINE  FILE   statement   or   the 

OPEN  statement.   The  records  contain  only  the  specified  data. 

The  direct-access  record  structure  is  independent  of  the  physical 
block  size  of  the  I/O  device.  However,  you  can  achieve  more  efficient 
operation  when  the  record  size  is  an  exact  divisor  or  multiple  of  256 
word*. 
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4.1   FACTORS  AFFECTING  PROGRAM  KFFICIBNCT 

This  chapter  is  directed  to  the  programmer  who  is  interested  in 
minimizing  program  execution  time  or  storage  space  requirements. 

The  relative  efficiency  of  a  FORTRAN  object  program  derives  from 
several  factors,  which- fall  into  two  classes: 

1.  The  way  you  code  your  source  program 

2.  The  way  the  compiler  treats  your  source  program 

These  two  factors  are  interrelated.  Your  use  of  certain  programming 
techniques  in  your  source  program  can  increase  compiler  optimization. 

Section  4.2  deals  with  the  situations  in  which  the  compiler  generates 
the  most  efficient  code.  Section  4.3,  Programming  Techniques,  aims  at 
improving  programming  efficiency. 

Bach  topic  discussed  in  the  following  section  is  flagged  with  one  or 
both  of  the  following  remarks: 


(space) 
(time) 


indicates  that  the  primary  concern  is  to   minimize 
program  memory  requirements. 

indicates  that  the  primary  concern  is  to  minimize 
execution  time. 


4.2   INCREASING  COMPILATION  EFFECTIVENESS 

The   following   programming   suggestions   will   increase    compilation 
effectiveness . 

1.  Using  the  optimizer  effectively  (space, time) 

Avoiding  certain  programming  constructs  allows  the  optimizer 
greater  freedom  to  discover  common  subexpressions  in  source 
programs.  Specifically,  avoid  usage  of  EQUIVALENCi::  and  COMMON 
variables,  and  SUBROUTINE  and  FUNCTION  dummy  arguments. 

2.  MiniBitinq  array  vector  table  storage  (space) 

—, —  The  FORTRAN  array-vectoring  feature  decreases  the  time 
required  to  compute  the  address  associated  with  an  element  of 
a  ault idimensional  array  by  precomputing  certain  of  the 
Multiplication  operations  involved.  The  valuen  precomputed 
•re  stored  in  a  table  called  the  "vector"  for  the  particular 
array  dimension. 
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1 


You  can  take  the  following  steps 
foe  array  vectors: 


to  reduce  the  space   required 


a. 


b. 


Specify  the  largest  dimensions  first  in  the  statement  that 
allocates  the  array,  in  order  to  minimize  v.he  number  of 
vector  table  entries  (as  the  first  dimension  is  never 
vectored) .   For  example: 


INTEGER  A(350,10) 
INTEGER  A(10,3S0) 


requires  10  words  to  vector 
requires  350  words  to  vector 


The  compiler  computes  a  space  tradeoff  factor  that  relates 
the  number  of  words  required  for  vector  storage  to  the 
number  of  words  required  to  store  the  array.  If  this 
tradeoff  is  favorable  (the  vector  table  is  small  compared 
to  the  array),  the  array  is  vectored.  Therefore,  the 
proper  ordering  of  dimensions  not  only  saves  table  space 
for  all  vectored  arrays,  but  can  also  cause  other  arrays 
to  be  made  eligible  for  vectoring. 

Try  to  keep  similar  arrays  dimensioned  in  the  same  order, 
so  that  certain  arrays  will  share  vector  tables.  For 
example: 

INTEGER  A(9,4,5),  B(9,4,7),  C(9,8) 

all  share  the  same  two  vectors,  one  for  the  second  array 
dimension  and  one  for  the  third.  The  vector  for  the 
second  dimension  will  have  eight  elements  (at  one  word 
each)  because  C  has  the  largest  second  dimension,  eight. 
Similarly,  the  vector  for  the  third  dimension  has  seven 
elements . 


In  the  general  case,  two  arrays  share  a 
dimension  i  if  each  dimension  less  than 
identical  to  the  same  dimension  for  the 
the  example  given  above,  arrays  A, 
vector  for  the  second  dimension  because 
first  dimension  equal  to  nine. 


vector  table  for 
i  in  each  array  is 
other  array.  In 
B,  and  C  share  the 
each  array   has   a 


i- 


¥ou  can  disable  vectoring  completely  by  specifying  the 
/NOVA  option  in  the  command  string  to  the  compiler.  No 
vector  tables  will  be  generated,  but  the  resulting  program 
executes  more  slowly  that  with  vectoring.  You  can  make 
this  tradeoff  if  array  usage  is  not  heavy  in 
speed-critical  sections  of  the  program,  or  if  saving  space 
is  your  primary  goal. 

3.   Multidimensioned  array  usage  (time) 

Mhen  you  use  multidimensional  arrays,  the  number  of  specified 
variable  subscripts  affects  the  time  required  to  make  the 
array  reference.  Therefore,  you  can  take  the  following  steps 
to  optimise  array  references. 

a.   Use  constant   subscripts  whenever   possible.    Constant 

subscripts  are  computed  during  compilation  and  require  no 
extra  operations  at  execution  time. 


• 
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b.  Make  totally  constant  array  references  wherever 
appropriate.  These  references  receive  the  highest  level 
of  optimization.   For  example: 

1  =  1 
A(I)  «  0.0 

is  not  so  efficient  as 


I  '    1 
A(I)  ■ 


0.0 


The  former  case  requires  a  run-time  subscript  operation; 
in  the  latter,  the  compiler  can  calculate  the  address  of 
the  first  element  of  array  A  at  compilation  time. 

Formatted  input/output  (space, time) 

FORTRAN  IV  precompiles  and  compacts  FORMAT  statements  that  are 
present  in  the  source  program.  This  feature  affects  the  space 
required  to  store  the  format  at  run  time,  and  the  speed  of  the 
input/output  operations  that  make  use  of  the  format. 

For  this  reason,  object-time  formats  (those  formats  that  are 
specified  in  arrays  rather  than  as  FORMAT  statements)  are 
considerably  less  efficient. 

Data  type  selection  (space, time) 

The  addressing  modes  of  the  PDP-11  processors,  and  various 
optimization  considerations  internal  to  FORTRAN  IV,  allow  more 
efficient  code  to  be  generated  for  certain  data  types  than  for 
others.   Specifically: 

•  Use  the  INTEGER  data  type  wherever  possible.  RSX-11 
FORTRAN  IV  performs  extensive  optimizations  on  this  data 
type. 

•  Use  REAL*4  rather  than  DOUBLE  PRECISION  (REAL*8)  wherever 
possible.  Single-precision  operations  are  significantly 
faster  than  double-precision,  and  storage  space  is  saved. 

•  Avoid  unnecessary  mode  mixing.   For  example: 

A  '    0.0 
is  preferable  to 
A  -  0 

•  Use  two  REAL*4  variables  rather  than  a  C0MPLEX*8  when  you 
make  minimal  use  of  COMPLEX  variables  in  the  progr->Ti. 
REAL*4  operations  receive  more  optimization  than  COMPLEX 
operations. 

Testing  "flag"  variables  (space) 

Wherever  possible,  use  comparisons  with  zero.  Comparing  any 
data  type  to  a  zero  value  is  a  special  case  that  requires  less 
executable  code.   An  example  of  such  a  case  is  the  following: 

IF  (I  .LT.   1)  GOTO  100 

requires  more  code  than 

IF  (I  .LE.   0)  GOTO  100 
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*2,  **2  operations  (time) 

Explicitly  specifying  *2  when  doubling  the  value  of  an 
expression,  or  **2  when  squaring  the  value  of  an  expression, 
causes  arare  efficient  code  to  be  generated.   For  example: 

A  •  (B  ♦  ARRAY(C) )**2 

is  prefeiable  to 

A  -  (B  ♦  ARRAY (C))  *  (B  «  ARRAY (C)) 

despite  the  fact  the  (B  *  ARRAY(C))  is  conputed  only  once  in 
either  case.  Note  that  this  applies  only  to  expression 
values:   1**2  is  as  efficient  as  1*1. 

Coapilation  options  (space) 

To  siiniaise  the  space  required  for  prograa  execution,  you 
should  supply  the  following  options  to  the  compiler: 

/-SM  (/MMM)  to  suppress  line  nuaber  traceback 
/-VA  (/NOVA)  to  suppress  all  array  vectoring 

In  addition,  do  not  specify  the  /I4  (2-word  integer  default) 
option  unless  you  require  it. 

Compilation  options  (ti-ie) 

Specify  the  following  coapi  ler  option  to  'tptiaixs  an  object 
prograa  for  execution  tisM. 


/-M  (/MOSli)  to  suppress  line  nuaber  traceback 


D*  not   specify    the    following    options, 


since   global 


optiBisation  and  array  vectoring  speed  prograa  execution. 


/-VA  (/MOVA) 


to  disable  array  vectoring 


4.1   PROGRAMMIW:  TBCMIIOOBS 


The  'ollowing  coaparisons  of  different  prograaaing  SMthodS  can  direct 
you  to  aore  efficient  prograaaing  techniques.  Mhile  both  aethods  are 
correct  for  the  particular  operation,  the  te'^hnique  -sn  *'he  right  is 
deaonstrably  aore  efficient  than  the  terhnsque  or.    the  left. 


!•   Neke  us«  of  the  incr 

isBrptci 


DINmSIOII    A    20) 
DO    1!>0    1*1,10 
A(2*t}«B 

100  eovrihUB 


t  parameter  in  DO  loop*. 

BTPICIBliT 

DlNBHStOH  A(20) 
DO  100,  1-2,20,2 
A(I)-B 
100   COWTINUB 


In  the  inefficient  eiaa^tle,  an  additional  calculation  is 
parfotaed  <2*1>  eech  t  iae  through  the  loop,  "^eu  avoid  these 
calculation «  in  the  efficient  esaaple  by  hevin;  the  count 
lncrea»nted  by  two. 
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Avoid  placing  calculations  within  loops  whenever  possible. 


THBPPICIBWT 

DC  \0    1-1,20 
DO   )  J -1,50 

2P   A{J)-A(J)*MB*C 

10   CONTINUE 


BPPiciBirr 

TEWP1-B*C 
DO  10  1-1,20 
TBMP2-I*TBMP1 
DO  20  J-1,  S(* 

20   A(J)-A(J)«TLHP2 

10   CONTINUE 


The  calculation  (B*C)  within  the  loop  of  the  inefficient 
example  is  evaluated  1000  tines.  Calculations  are  handled 
more  econosiically  wfen  done  outside  the  loop.  In  the 
efficient  exaaple,  980  "FLOATS"  and  1979  floating  multiples 
were  saved  by  performir>g  the  (B*C  and  I)  calculations  outside 
the  ^oop. 


Nes    .  loops  properly,  to  increase  speed  by  minimizing 
loop  initialisation. 


the 


60 


INBPF13IEVT 

DIMENSION  A(100,10) 
DO  60  1-1,100 
DC  60  .1-1,10 
A(I,J)-B 


«0 


SPPICIBNT 

DIMENSION  A(100,10) 
1,0  60  J-1, 10 
DO  60  1-1,100 
A(I,J)-B 


In  the  first  example,  the  inner  DO  loop  is  initialized  100 
times;   the  efficient  example  is  initialized  only  10  times. 

Use  INTEGER  mode  as  much  as  possible  for  your  calculations. 

IHKPPICIBVr  BPPICIBNT 

A-B«I>J  A-B^(I4J) 

Also,  do  calculation  in  REAL  mode  when  the  dominant  mode  of 
an  expression  is  DOUBLE  PRECISION  or  COMPLEX.  Calculation  is 
most  efficient  in  integer  mode,  less  efficient  in  REAL  mode, 
and  least  efficient  in  DOUBLE  PRECISION  or  COMPLEX. 

Avoid  division  within  programs  where  possible. 

INBPPICIBMT  BPPICIBNT 

A-B/2.  A-  B*.5 

Since  multiplication  is  faster  than  division,  it  saves 
execution  time. 
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A.l   INTBGBR  FORMAT 


Sign 


0  . 

1  - 


-•* 


BtrMry  number 


3 


IS  14 


0 
ZK  ilM>-» 


Integers  are  stored  in  a  two's  cofflplement  representation.  When  the 
/I4  compiler  switch  is  used,  an  integer  is  assigned  two  words, 
although  only  the  high-order  word  (the  word  having  the  lower  address) 
is  significant.  By  default,  integers  will  be  assigned  to  a  single 
storage  word.  Explicit-length  integer  specifications  (INTEGER*2, 
INTEGER*4)  always  take  precedence  over  the  setting  of  the  /I4  switch. 
Integer  constants  must  lie  in  the  range  -32768  o  -•'32767.   For  example: 

422  -  00026 (octal) 
-7  -  17771 (octal) 


A. 2   FLOATING-POINT  FORMATS 


The  exponent  f 
stored   in   ex 
-128  to  ^^127  a 
255    (0    thr 
signraagni  tude 
Numbers  are 
significant  hi 
normal  i  tat  ior. " 
0  (corresp'":v')i 
value   0   iS 
-•■l.O  would  be 

40200 
9 


in  the  2-word  format,  or: 

40200 
-    0 
0 


or  both  2-word 
cess   128   (200 
re  represented 
ough    377(octa 
notation  with 
assumed   to   be 
t  is  not  stored 
).   This  bit  is 
ng  to  2-128)  ,  i 
represented  by 
representcK)  by: 


and  4-word 
(octal ) )  not 
by  the  binar 
1) ) .  Frac 
the   binary 

normal ized 
,   because 

assumed  to 
n  which  case 
two  or  four 


floating-point  formats  is 
ation.  Binary  exponents  from 
y  equivalents  of  0  through 
tions    are    represented   in 

radix   point   to   the   left. 

and,   therefore,   the   most 

of   redundancy   ("hidden   bit 

be  a  1  unless  the  exponent  is 

it  is  assumed  to  be  0.  The 
words  of  zeros.   For  example. 


in  the  4-word  format.   The  decimal  number  -5  isi 

140(40 

f 
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in    the   2-worcl    format,    or: 

140640 
0 

in  the  4-word  format. 


A. 2.1   Real  Format  (2-Nord  Floating  Point) 


Sign 


word  1: 


word  2 


15 


0  • 

1  - 

Binary  excess 
128  exponent 

High-order 
mantissa 

15  14                                  7  6                                     0 

Low-order  mantissa 

0 
ZK-ne3->2 


Since  the  high-order  bit  of  the  mantissa  is  always  1,  it  is  discarded, 
giving  an  effective  precision  of  24  bits,  or  approximately  7  digits  of 
accuracy.  The  magnitude  range  lies  between  approximately  .29  X  10-38 
and  .17  X  10  39. 


A. 2. 2  Double-Precision  Format  (4-l(ord  Floating  Point) 


Sign 


word  1 


word  2 


word  3 


word  4 


0  ■ 

1  - 

Binary  excess 
128  exponent 

High-order 
mantissa 

15  14 


76 


Low-order  mantissa 


15 


Lower -order  mantissa 


15 


Lowest-order  mantissa 


15 


0 

2K   1184  8? 


The  effective  precision  is  56  bits,  or  approximately  17  decimal  digits 
of  accuracy.  The  magnitude  range  lies  between  .29  X  10-38  and  .17  X 
10  39. 
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A. 2. 3  Complex  Format 


wsr ' 


word   I 


word  2 


word  3 


word  4 


0  . 

1  ^ 

Binary  excess 
128  exponent 

High-order 
mantissa 

15  14                               7  6 

C 
C 

Real 
Part 

Low-order  mantissa 

15 
Sign 

0  ■ 

1  - 

Binary  excess 
128  exponent 

High-orde- 
mantissa 

15  14                                7  8 

0 

Imaginary 
Part 

Low-order  mantissa 

15 

0 

ZK- 1185-82 

A. 3      LOGICAL* 


A3    LOGICAL -1 


: 


Data  item 


7  0 

ZK  1186-8? 


Any  nonzero  value  is  considered  to  have  a  logical  value  of  .TRUE.  The 
range  of  numbers  from  +127  to  -128  can  be  represented  in  LOGICAL*! 
format.   LOGICAL*!  array  elements  are  stored  in  adjacent  bytes. 


A. 4   HOLLERITH  FORMAT 


word  1 


word  2 


char  2 


15 


15 


8  7 


8  7 


char  1 


char  4 

chaf  3 

c^ 


word  1  blantt      40  (octal) 

15 


char  n  (n   255i 


8  7 


mil 
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Hollerith  constants  are  stored  internally  one  character  per  byte. 
Hollerith  values  are  padded  on  the  right  with  blanks  to  fill  the 
associated  data  item,  if  necessary.  Hollerith  constants  can  be  used 
only  in  DATA,  FORMAT,  and  CALL  statements.  Only  the  quoted  form  of 
Hollerith  constants  can  be  used  in  STOP  and  PAUSE  statements. 


A. 5   LOGICAL  tToRMAT 


V-UB 

word  2 
word  1 
vnord  2 

unspec 

fied 

377 

5 

8  7 

0 

unspecitied 

*.5 

0 

F«i[M 

unspecilied 

I 

000 

; 

15 

8  7 

0 

unspet.ilied 

15 

ZK 

0 

1187  82 

Logical  (L0GICAL*4)  data  items  are  treated  as  L0GICAL*1  values  for  ue 

fc?ith   arithmetic   and   logical   operators.    Any   nonzero  value  in  the 

low-order  byte  is  considered  to   have   a   logical   value   of   true  in 
logical  expressions. 


A.«   RADIX-50  FORMAT 
Radix-50  cha».acter  u&t 


Charactax 
ASCII 


Octal 
Squiv3l«rit 


Radis-SO 
Equiv«l«nt 


space 
A-Z 

unused 
0-y 


40 
101-1J2 
44 
56 


60-71 
The  maximum  Radix-50  valu«  in   thus 


0 
1-32 
.X3 
34 
33 
3G-  47 


47*50**2*47*5O*47  «  174777 (octal ) . 

The  following  cable  provides  a  convenient  means  of  translating  between 
the  ASC\I  character  set  ind  its  Radix-50  equivalents.  For  example, 
given  the  ASCII  ntring  X2B,  tne  RadiK-SG  «quival«nt  is  (arithmetic  is 
performed  in  octAi.)  : 

X"!! JOOO 

2-0C2400 

U»U00002 

)12B'>U5402 
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Table  A-.\:      ASCII/Radix-50   )Equival«nts 


Single  Character 

or 

Second 

Third 

First  Character 

Character 

Character 

space 

000000 

space 

000000 

space 

000000 

A 

003100 

A 

000050 

A 

000001 

B 

006200 

B 

000120 

B 

000002 

C 

011300 

C 

000170 

C 

000003 

D 

014400 

D 

000240 

D 

000004 

E 

017500 

E 

000310 

E 

000005 

'J 

r 

022600 

F 

000360 

F 

000006 

G 

025700 

G 

000430 

G 

ooooc 

H 

031000 

H 

000500 

H 

OOOOlo 

I 

034100 

I 

000550 

I 

onoon 

J 

037200 

J 

000620 

J 

' ^0012 

K 

042300 

K 

000670 

\ 

000013 

L 

045400 

L 

000740 

L 

000014 

M 

050500 

M 

001010 

M 

000015 

N 

053600 

N 

001060 

K 

"00016 

0 

056700 

0 

001130 

0 

000017 

P 

062000 

P 

001200 

P 

000C20 

Q 

065100 

0 

001250 

0 

000021 

R 

070200 

R 

001320 

R 

C00022 

S 

073300 

S 

001370 

S 

000023 

T 

076400 

T 

001440 

T 

000024 

U 

101500 

U 

001510 

U 

000025 

V 

104600 

V 

0015t0 

V 

000026 

W 

107700 

W 

001630 

w 

000027 

X 

113000 

X 

001700 

X 

000030 

y 

116100 

Y 

001750 

Y 

000031 

7. 

121200 

Z 

002020 

Z 

000032 

% 

124300 

$ 

002070 

$ 

000033 

• 

127400 

• 

002140 

• 

000034 

unused 

132500 

unused 

002210 

unused 

000035 

0 

135600 

0 

002260 

0 

000036 

1 

140700 

1 

002330 

1 

000037 

2 

144000 

2 

002400 

2 

000040 

3 

147100 

3 

002450 

3 

000041 

4 

152200 

4 

002520 

4 

000042 

5 

155300 

5 

002570 

5 

000043 

G 

160400 

6 

002640 

6 

000044 

7 

163500 

7 

002710 

7 

000045 

8 

166600 

8 

002760 

e 

000046 

9 

171700 

9 

003030 

9 

000047 
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B.l   LIBRABT  SOBROOTIHB  MMNAMT 

In  Midition  to  th«  functions  intrinsic  to  the  FORTRAN  systm,  th«r« 
•r*  subroutin**  in  th«  FORTRAN  library  that  ths  user  nay  call  in  the 
saae  sanner  as  a  user-written  subroutine.   These  subroutines  are: 


ASS.GN 

CLOSE 
DATE 


tBRsrr 


BRRSMS 


BRRTST 


EXIT 


MEBBX 


SBCllOli 


Allows  specification  at  run  tiae  of  ftle  naae  or  device 
mnd  file  naae  tc  be  associated  with  a  FORTRAN  loqical 
unit  o'tttber . 

Allows  a  file  on  a  specified  logical  unit  to  be  closed. 

Returr«  a  9-byte  strinq  containing  the  ASCII 
representation  of  the  current  date. 

Returns  three  integer  values  representing  the  current 
•onth,  day,  and  year. 

Allows  the  user  to  specify  the  ac'.  ion  to  be  taken  on 
detection  of  certain  errors. 


Allows  the  user  to  obtain  inforaation  about   the  aost 
recently  detected  error  condition. 

Allows  •onitoring  of  certain  error  types  during  prograa 
eiecution. 

TW(ainat.es  the  eicecution  of   a  prograa   and   returns 
control  tc    the  eaecutive. 

Allows  spwct f icat ton  of  a  routine  to  be  invoked  as  part 
of  pwty   -as  termination. 


Allows  specification   of   special   I/O  options 
associated  with  a  logical  unit. 


to 


Ferforas  conversion  of  up  to   sii   Hollerith   character 
strings  ^nd  returns  the  result  as  a  function  valuo. 

Ferforas  conversion  of  kollorith  strings   to  Rodii-SO 
repreeentat ion. 

Converts  R«dii-SO  strings  to  Hollerith  strings. 


•etoras  a   paeudo    randoa   real 
distribution  between   0   aitd    1. 


Frovides    systoa   tiae     of     day      or 
floating-point    viae    in   seconds. 


with  a  waif era   

elspoed   tiae  as  • 


LIBBAtT  8UBBO0TIMB8 


TIMB  Rr turns  an  S-byte  stcin^  containing  the  ASCII 
r*pr«sentat ion  of  the  current  tiae  in  hours,  Pinutes, 
and  seconds. 


B.2   ASSICH 

Ttte  ASSIGN  subroutine  allows  the  association  of  file  n^ae  information 
with  a  logical  uiit  nuabcr.  The  ASSIGN  call,  if  present,  aust  be 
executed  before  the  logical  unit  is  opened  for  I/O  operations  (by 
RBAD,  or  HRITZ)  for  sequential-access  files,  or  before  tne  associated 
OPBM  or  DBPIHB  PILE  stateaent  for  randoa-access  files.  The  device 
•■■ignsMnt  reaains  in  effect  u.til  a  new  CALL  ASSIGN  is  perforacKl. 
The  file  name  asjignaent  reaains  in  effec-  only  until  the  file  is 
closad.   The  to  ASSIGN  has  the  general  fora: 

CALL  ASSIGN  (n,  nasH^,  incnt) 

CALL  ASSIGN  requires  only  the  first  arguaent;  all  others  are  optional 
and.  If  oaitted,  are  replaced  by  the  default  valutas  as  noted  in  the 
arguaent  descriptions.  However,  if  any  arguaent  is  to  be  included, 
all  argusMnts  that  precede  it  aust  also  be  included. 

A  description  of  the  argua^nts  of  the  ASSIGN  routine  follow*: 


Logical  unit  nuaber  expre«s«»d  as  an  integer 
or  expression. 


constant,   variable. 


Variable,  array,  array  eleaent,  or  Hollerith  or  literal  string 
containing  any  standard  device/ file  naaie  specification.  If  the 
device  is  not  specified,  then  the  device  reaains  unchanged  froa 
the  current  assignaents.  If  a  file  nasM  is  not  specified,  the 
default  naaes  as   described  >ii  Section  2.8.1  a.<e  used. 


lent 

The  nuaber  of  characters  in  the  string  'naae' .  If  'icnt'  is  sero 
or  unspecified,  the  string  'naae'  is  processed  until  the  first 
blank  or  null  character  (0)  is  encountered. 

For  exasiple,  in  the  following  prograa: 

CALL  ASSIGN ( 3, 'TT: ') 
HRITCO,-)  .... 
CALL  CL0SB(3) 
WH;TE(3,-)  

both  HRITE  operations  will  occur  on  the  terainal.  To  cause  the  second 
WRITE  to  revert  back  to  ST:,  another  CALL  ASSIGN  must  be  ased, 
explicitly  setting  SY:   to  unit  3. 
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B.3   CLOSB 

The  CLOSE  subroutine  allows  the  currently  open  file  on  a  logical   unit 
to  be  closed.   The  form  of  the  call  is: 

CALL  CLOSE  (n) 


An  integer  value  specifying  the  logical  unit. 

If  the  file  was  open  for  output,  any  partially  filled  buffers  are 
written  to  the  file  before  closing  it.  After  the  execution  of  CALL 
CLOSR,  any  buffers  associated  with  the  logical  unit  are  freed  for 
reuse  and  the  filename  supplied  in  any  previous  CALL  ASSIGN  for  the 
logical  unit  is  lost.  The  logical  unit  is  thus  free  to  be  associated 
with  another  file. 

An  inpiicit  CLOSE  operation  is  performed  on  all  open  logical  units 
when  c  program  terminates  (due  to  a  fatal  error  condition,  or  the 
execution  of  STOP  or  CALL  EXIT). 


B.4  DXn 


The  DATE  subroutine  can  be  used  in  a  FORTRAN  program  to  obtain  the 
current  date  as  maintained  within  the  system.  The  DATE  subroutine  is 
called  as  follows: 


vj 


CALL  DATE  (array) 


array 

An  array  capable  of  holding  a  9-byte  string. 

The  array  specification  in  the  call  may  be  expressed  aB   the  array  name 
alone: 

CALL  DATE  (a) 

in  which  the  first  three  elements  of  the  real  array  a  are  used  to  hold 
the  date  string,  or  as: 

CALL  DATE  (a(i) ) 

which  causes  the  9-btye  string  to  begin  at  the  i(th)   element   of   the 
array  a. 

The  date  is  returned  a  a  9-byte  (9-character)  string  in  the  form: 

dd-mmm-yy 


The  2-digit  date 


The  3-letter  month  specification 


fy 


Th«  last  two  digits  of  the  year 
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For  example: 

15-JAN-78 

In  the  case  where  the  array  is  a  real  array,  4-1/2  words  are  used  to 
contain  the  data  string  with  the  remaining  array  storage  being 
untouched.  Therefore,  the  date  string  is  stored  in  the  first  nine 
bytes  in  the  elements  a(i),  a(i+l),  and  a(i+2).  The  last  three  bytes 
of  a(i-»'2)  are  unmodified. 


B.5   IDATB 

IDATE  returns  three  integer  values   representing   the   current   month, 
day,  and  year.   The  call  has  the  form: 

CALL  IDATE  (i,  j,  k) 

If  the  current  date  were  March  19,  1976   the   values   of   the   integer 
variables  upon  return  would  be: 

i  ■  3    >:■  :  - 
j  •  19 
k  «  76 


B.6   BRRSET 

The  ERRSET  subroutine  allows  specification  of  the  action  to  be  taken 
when  an  error  is  detected  by  the  OTS.  The  error  action  to  be  taken  is 
individually  specified  for  each  error,  independent  of  other  errors. 
The  general  form  of  the  call  is: 

CALL  BRRSET  (number,  contin,  count,  type,  log,  maxlim) 

number 

An  integer   value   specifying   the   error   number   to   which   the 
following  parameters  apply. 


contin 


A  logical  value  specifying  whether  or  not  to  continue  after  an 
•rror.  .TRUE.  means  continue;  .FALSE.  means  exit  if  this 
•rcor  occurs. 


count 


type 


A  logical  value  specifying  whether  to  count  this  error  against 
the  task's  maximum  error  limit.  .TRUE,  means  count;  .FALSE, 
means  do  not  count  it. 


A  logical  value  specifying  the  type  of  continuation  to  perform. 
.TRUE,  means  that  an  ERR*  transfer  is  to  be  taken,  if  available. 
If  this  action  is  indicated  and  an  ERR>  keyword  is  not  specified 
in  the  I/O  statement,  then  the  task  will  exit  when  the  error 
occurs.  .FALSE,  means  return  to  the  routine  that  detected  the 
•rror  for  default  error  recovery. 
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log 

A  logical  value  specifying  whether  to  produce  an  error  message 
for  this  error.  .TRUE,  means  produce  a  message;  .FALSE,  means 
do  not  produce  a  message. 

maxlim  ■-  ■.:-  ''"■  ;  .y  '■  ■  .  . 

A  positive  integer  value  used  to  set  the  task's  maximum  error 
limit.   The  default  valu«  is  set  to  31  at  task  initialization. 

Consult  Section  C.2,  OTS  Error  Diagnostics,  for  a  complete  description 
of  the  allowed  values  and  meanings  of  these  arguments. 

Null  arguments  are  permitted  for  all  but  the  first  argument  and   cause 
no  change  in  the  current  state  of  that  control  code. 


B.7   BRRSN8 

The  ERRSNS  subroutine  allows  the  user  to  obtain  information  about  the 
most  recent  error  that  has  occurred  during  program  execution.  The 
general  form  of  the  call  is: 

CALL  ERRSNS  (num,  fcserr,  fcserl,  iunit) 

num  -■^:  '. 


An  INTEGER*2  variable  or  array  element  into  which  will  be   stored 
the  most  recent  error  number. 

(A  zero  will  be  returned  if  no  error  has  occurred.) 

If  the  last  error  occurred  as  a  result  of  an  error  indication  from 
File  Control  Services  (FCS) ,  then  the  next  three  parameters  will 
receive  selected  values  from  the  File  Descriptor  Block  (FDB) . 
Otherwise,  values  of  zero  will  be  returned.  Consult  the  I/O 
Operations  Reference  Manual  for  definitions  of  the  interpretation  of 
the  FCS  error  return  codes. 

fcserr 


An  INTEGER*2  variable  or  array  element  into  which  will  be   stored 
the  F.ERR  field  of  the  FDB. 


fcserl 


An  INTEGER*2  variable  or  array  element  into  which  will  be   stored 
the  F.ERR^l  field  of  the  FDB. 


iunit 


An  INTEGER*2  variable  or  array  element  ^nto  which  will  be   stored 
the  logical  unit  number. 

Fiom  zero  to  four  arguments  may  be  specified.  Specifying  zero 
arguaents  serves  to  clear  ERRSNS  from  previous  calls.  To  determine  if 
an  error  occurs  in  a  given  section  of  a  program,  the  following 
technique  is  suggested: 

1.   Call  ERRSNS  just  prior  to  the  segment  in  order  to   clear   any 
previous  error  data. 
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2.  execute  the  section. 

3.  Call  BRRSNS  again  and  branch  on  a  nonzero  argument   to  error 
analysis  code. 


For  example: 


CALL  ERRSNS 

CALL  ASSIGN  ( 1 ,' NAME .DAT' ) 

CALL  FDBSET  ( 1 ,' OLD*  ,' SHARE' ) 

CALL  ERRSNS  (lERR) 

IF  (lERR.NE.O)  GO  TO  100 


B.8   ERRTST 

The  ERRTST  subroutine  allows  the  user  program  to  monitor  the  types   of 
errors  detected  during  program  execution.   The  call  is  of  the  form: 


CALL  ERRTST  (i,  j) 


The  error  number  and  the  value  of  j  is  returned  as: 

j»l  if  error  number  i  has  occurred 

j«2  if  error  number  i  has  not  occurred. 

The  sequence: 

CALL  ERRTST  (43, J) 
GO  TO  (10,20)  ,J 
10  CONTINUE 

transfers  control  to  statement  10  if  an  error  43   has   occurred. 
Section  C.2.3.2  for  a  discussion  of  error  codes  and  messages. 


See 


The  ERRTST  routine  also  resets  to  zero  the  error  flag  for  that  error 
class  (but  not  the  error  count  used  by  ERRSET) .   For  example: 

CALL  ERRTP-^  fI,J) 
CALL  ERRTSi  (I, J) 

The  second  call  is  guaranteed  to  return  J«2.  The  ERRTST  subroutine  is 
independent  of  the  ERRSET  subroutine  and  neither  directly  influences 
the  other,  except  that  ERRSET  can  cause  »^xecution  to  terminate. 


B.9   iXIT 

A  call  to  the  EXIT  subroutine,  in  the  form: 

CALL  EXIT 

is  equivalent  to  the  STOP  statment  but  does  not  produce  a  message.   It 
causes  all  files  to  be  closed  and  the  issuing  task  to  be  terminated. 
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B.IO      OSERi^X 

USEREX  is  a  subroutine  that  allows  specification  of  a 
invoked    as    part   of   program   terrninat  i  on.    This 
operations  in  non-FORTRAN  routines.   The  form  of  the 
iS4 


routine   to   be 

allows   cleanup 

subroutine   call 


name 


CALL  USERFX  (name) 


The  routine  that  is  called  at  exit  time  and  should  appear 
EXTERNAL  statement  somewhere  in  the  program  unit. 


in 


an 


Control  is  transferred  with  a  JSR  PC,  name  instruction  after  all 
procedures  required  for  FORTRAN  IV  program  termination  have  been 
completed.  The  transfer  of  control  takes  place  instead  of  the  normal 
exit  to  the  Executive.  The  routine  specified  by  USEREX  may  perform 
the  exit  procedure  itself  or  return  with  an  RTS  PC,  and  FORTRAN  will 
perform  an  exit. 


B.ll   PDBSBT 

The  FDBSET  subroutine  permits  specification   of   special   input/output 
options  available  through  File  Control  Services  (FCS) . 

CALL  FDBSET  (unit,  mode,  share,  numbuf,  initsz,  extend) 


unit 


an  integer   value   specifying   the   logical   unit   to  which   the 
subsequent  arguments  apply. 


mode 


One  of  the  following  literals  specifying  the  type  of  access  to  be 
used  (only  the  first  letter  is  checked  for  validity): 

•READONLY*      for  read-only  access  to  an  existing  file. 

•NEW  for  creating  a  new  file. 

•OLD'  for  accessing  an  existing  file. 

'APPEND'       for  appending  to  an  existing   file   (meaningful 

for  sequential  files  only). 
•UNKNOWN*      when  it  is  not  known  whether   a   file  exists. 

This  option   searches   for   it,  opens  it  if  it 

already  exists,  or  creates  the  file  if  it   dot>s 

not . 
"»<ODiFY'       open  an  old  file  for  updating.   The  file  cannot 

be  extended. 
iSUP^         open   a   new   file   (for   output)   but   inhibit 

supeiseding  of  the  previous  version. 

If  this  argument  is  omitted,  the  default  is  determined  by  the 
first  I/O  operation  performed  on  that  unit.  If  a  WRITE 
operation  is  first,  •NEW^  is  assumed;  if  a  READ  operation  is 
first,  •OLD^  is  assumed. 
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•hare 


The  literal  'SHARE'  indicatinq  that   the  PCS  shared-access   :it 
should  be  set. 


nuaibuf 


1 


An  integer  value  indicating  the  nuaber  of  internal  buffr>rs  to  be 
used  for  multibuffer  input/output.  If  this  argument  is  ocnitted, 
one  internal  buffer  is  used.  The  ACTFIL  option  in  the  Task 
Builder  coMsand  sequence  is  used  to  extend  the  buffer  area. 


initsx 


An  integer  value   indicating   the   initial   allocation,   in  disk 
blocks,  of  a  new  file. 

extend 

An  integer  value  specifying  the  noaiber   of   blocks   by  whict.   to 
extend  •  file. 

PDB8BT  can  only  be  called  prior  to  opening  the  unit  specified  in  the 
first  arguiaent.  CALL  POBSBT,  CALL  ASSIGN,  and  the  DBPINBPILE 
•tateaent  can  be  used  together. 


The  unit  nuaib*r  arguaent  i^  required.   All  other  arguments  aay  be  null 
or  Missing  or  indicate  no  specification  for  that  arguaent. 


1.12   RAOSB 

The  RA050  function  subprograa  provides  a  siaplifled  way  to  encode  task 
neaes  in  Radix-SO  notation.   The  foca  of  the  call  is 

RAO50  (naae) 


The  variable  namm   or  array  eleaent   corresponding   to  an  ASCII 
ctriag. 

Mote  that  the  RAD50  function  aay  be  used  as  an  arguaent   to  a  systea 
directive  subroutine.   Por  eiaaple: 

BBAL*B  A 

DATA  A/  'JOB    V 

CALL  RB0UB8  {RAOSO (A) . . . . ) 

The  BAOSO  function  is  equivalent  to   the   following   PORTWAN   function 
subprograa: 

POaCTIOa  RAO50(A) 

CALL  IBAOSO  (4.A,RAOS0) 

RSTURV 


Scanning  of  input  characters   terainates   at   the   flr^t   non-Radix-SO 
character  encountered  in  the  input  string. 


I.  Naltibuf facing  la  not  lapleswntad  in  BSX-llN. 
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•.13   IRAOSO 

The  IRAOSO  sutprograai  perforas  conversions  between  Hollerith  (text) 
strings  «nd  Radix-50  representation.  Radia-SO  representation  is 
required  by  the  ISA  Process  Control  and  Systea  Directives  Subroutines 
for  the  specification  of  task  naaes.  (See  Section  A. 6  or  the  ppp- 1 1 
PORTRAW  IV  Language  Reference  Manual  for  details  of  the  Radi  x-SO 
representatfon. ) 

IRAOSO  nay  be  called  ae  a  FUNCTION  subprograa  if  the  return  value  is 
desired,  or  as  a  SUBROUTINk:  subprograa  if  no  return  value  is  desired. 
The  fora  of  the  call  is: 


n  *  IRALSO  (icnt,  input,  output) 


OS 


CALL  IRAOSO  {lent,  inpct,  output) 
icnt 

Th«  (integer)  aasinum  nuttibur  o^  characters  to  convert, 
input 

An  ASCII  (Hollerith)  text  string  to  be  converted  to  Radix-SO 
output 

The  location  for  storing  the  results  of  the  conversion. 
n 

The  nuaber  of  characters  actually  converted. 

Three  characters  of  text  are  packed  into  each  word  of  output.  The 
nuaber  of  output  words  modified  is  coaputed  by  the  expression  (in 
integer  aode) 

(ICNT*2)/3 

Thus  if  a  count  of  four  is  specified,  two  words  of  output  will  be 
written  even  if  only  a  1-character  input  string  is  given  as  an 
arguaent. 

Scanning  of  input  characters  terminates  at  the  first  non-Radix-SO 
character  encountered  in  the  input  string. 


•.14   RSOASC 

The  RSOASC  subprograa  provides  decoding   of   Radix-50   encoded   values 
into  ASCII  strings.   The  fora  of  the  call  is: 


CALL  RSOASC  (icnt,  input,  output) 


icnt 


The  nuaber  of  output  characters  to  be  converted 


input 


The  variable  or  array  containing  the  Radix-SO  input.    Note   that 
(icnt42)/3  words  will  be  read  for  conversion. 
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output 

The  variable  or  array  into  which  icnt   characters   ASCII   (bytes) 
will  be  placed. 

If  the  undefined  Radix-50  code  is  detected,  or  the  Radix-50  word 
exceeds  the  maximum  value  174777  (octal),  then  question  mark(s)  are 
placed  in  the  output  buffer. 


B.IS   RANDU.RAM 

The  pseudo  random  number  generator  can  be  called  as  a  subroutine, 
RANDU,  or  as  an  intrinsic  function,  RAN.  The  subroutine  call  is 
performed  as  follows: 

CALL  RANDU  (11,  i2,  x) 

il  and  i2  . 

Previously  defined  integer  variables 


The  real  variable  name  in  which  a  pseudo   random   number   between 
zero  and  1  is  returned. 

il  and  i2  should  be  initially  set  to  zero.  il  and  i2  are  updated  to  a 
new  generator  base  during  each  call.  Resetting  il  and  i2  to  zero 
repeats  the  random  number  sequence.  The  values  of  il  and  i2  have  a 
special  form:  only  zero  or  saved  values  of  il  and  12  should  be  stored 
in  these  variables. 

Use  of  the  random  number  subroutine  is  similar  to  the  use  of  the  RAN 
function,  where: 

x  -  RAN  (il,  i2) 

is  the  function  subprogram  form  of  the  pseudo  random  number  generator. 


B.16   SBCBDS 

The  SFCNDS  functions  subprogram  returns  the  system  timt.  as  a  single 
precision  floating- r^^  int  vaiue  less  the  value  of  its  single  argument. 
For  example: 

TIM-SECNDS(0.) 

will  return  the  number  of  seconds  since  midnight,  that  is,  the  current 
time  of  day.  It  can  be  called  with  a  non-zero  argument  for  performing 
elapsed  time  computations,  as  in: 

C     START  OP  TIMED  SEQUENCE 

Tl  ■  SECNDS(0.)  ' 


C 

c 
c 


CODE  TO  BE  TIMED 
DELTA  -  SECNDS(Tl) 
«rh«re  DELTA  will  give  the  elapsed  time. 
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The  value  of  SECNDS  is  accurate  to  the  resolution  of  the  system  clock: 
0.0166...  seconds  for  a  60-cycle  clock  and  0.02  seconds  for  a 
50-cycle  clock.  Systems  with  a  programmable  clock  have  resolution  not 
greater  than  the  clock  tick  as  set  at  SYSGEN. 

With  24  bits  of  precision  for  real  values,  this  representation  is 
accurate  to  the  clock  tick  for  values  up  to  about  two  days  in 
duration. 


B.17   TIME 

The  TIME  subroutine  allows  the  use  to  access  the  current   system   time 
as  c^   ASCII  string.   Its  form  is  as  follows: 

CALL  TIME  (a) 

The  TIME  call  returns  the  time  as  an   8-byte   {8-character ,   including 
colons)  ASCII  string  of  the  form: 

hh :mm:ss 


The  2-digit  hour  indication 

The  2-digit  minute  indication 

The  2-digit  second  indication 

For  example: 

10:45:23 

A  24-hour  clock  is  used.   This  quantity  is  typically  output  with  a  2A4 
format  specification. 
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C.I   COMPILER  IV  ERROR  DIAGNOSTICS 

The  FORTRAN  IV  Compiler,  while  reading  and  processing  the  FORTRAN 
source  program,  can  detect  syntax  errors  (or  errors  in  general  form) 
such  as  unmatched  parentheses,  illegal  characters,  unrecongizable  key 
words,  and  missing  or  illegal  statement  parameters. 

The  error  diagnostics  are  generally  clear  in  specifying  the  exact 
nature  of  the  error.  In  most  cases,  a  check  of  the  general  form  of 
the  statement  as  described  in  the  PDP-11  FORTRAN  IV  Language  Reference 
Manual  will  help  determine  the  location  of  the  error. 

Some  of  the  most  common  causes  of  syntax  errors,  however,  are  typing 
mistakes.  A  typing  mistake  can  sometimes  cause  th*?  compiler  to  give 
very  misleading  error  diagnostics.  The  user  should  note,  and  take 
care  to  avoid,  the  following  common  typing  mistakes: 


Missing  commas  or  parentheses 
FORMAT  statement. 


in  a  complicated   expression   or 


Misspelling  of  particular  instances  of  variable  names.  If  the 
compiler  does  not  detect  this  error  (it  usually  cannot), 
execution  may  also  be  affected. 


An  inadvertent  line  continuation  signal 
the  statement  in  error. 


on  the  l:ne   following 


•  If  the  user  terminal  does  not  clearly  differentiate  between  0 
(zero)  and  the  letter  0,  what  appear  to  be  identical  spellings 
of  variable  names  may  not  appear  so  to  the  compiler,  and  what 
appears  to  be  a  constant  expression  may  not  appear  so  to  the 
compi ler . 

If  any  error  or  warning  conditions  are  detected  in  a  compilation,   the 
following  message  is  printed  on  the  initiating  terminal: 


[name] Errors :n,Warnings:m 


(name) 


The  6-character  name  of  the  program  unit  being  compiled.  .MAIN, 
is  the  default  name  of  the  main  program  if  no  program  statement 
la  used.   The  default   name   for   BLOCK   DATA   program   units   is 


. DATA . . 


The  number  of  error-class  messages  (those  messages  that  cause  the 
statement  in  question  to  be  ignored) . 
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m 

The  number  of  warning-class  messages  (those  messages  indicating 
conditions  that  can  be  ignored  or  corrected,  such  as  missing  END 
statements  or  questionable  programming  practices) . 

The  following  is  an  example  of  a  FORTRAN  IV  program   with   diagnostics 
issued  by  the  compiler. 


FORTRAN  IV       V02.A 
ERROR •ERROR/-SP-ERROR 


HON  12-NAR-83  li:3i:3S 


PAGE  001 


0001 
0002 
0003 
0004 
OOOS 
0006 
0007 


10 


DOUBLE  PRECISION  DBLE 

DATA  INT/100/ 

DBLl-INT/2  ♦  .5 

URITEi<6»10)DBLE 

F0RHAT(lXiF12.6) 

INTEGER  INT 

END 


FORTRAN  IV  DIAGNOSTICS  FOR  PROGRAM  UNIT  .HAIN. 

IN  LINE  0004f   error:    SYNTAX  ERROR 

IN  LINE  0007f  warning:   NON-STANDARp  S1ATEHENT  ORDERING 


FORTRAN  IV  STORAGE  NAP  FOR  PROGRAH  UNIT  .HAIN. 

LOCAL  VARIABLES*  .P8ECT  .tDATAt  SIZE  >  000014  ( 

NAHE    TYPE    OFFSET      NAHE     TYPE   OFFSET 
DBLE    R.«e    000004      INT      I-«2   000002 


6.  UORDS) 
NAME     TYPE   OFFSET 


The  next  three  sections  d >scribe  the  initial  phase  and  secondary  phase 
error  diagnostics  and  thj   fatal  FORTRAN  IV  compiler  error  diagnostics. 


C.1.1   Brrors  Reported  by  the  Initial  Phase  of  th*  Coapiler 

Some  of  the  easily  recognizable  FORTRAN  syntax  errors  are  detected  by 
the  initial  phase  of  the  compiler.  Errors  that  cause  the  statement  in 
qbestion  to  be  ignored  are  tabulated  in  the  ERROR  count,  whereas  those 
that  are  correctable  by  the  compiler  are  counted  as  WARNINGS. 
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The  error  diagnostics  are  printed  after  the  source  statement  to  which 
th*  /  apply  (the  L  error  diaonostic  is  an  exception).  The  general  form 
of  the  diagnostic  is  as  follows: 

*****   r^ 


A  code  letter  whose  meaning  is  described  below; 


Code  Letter 


INITIAL  PHASE  ERROR  DIAGNOSTICS 

Description 

Columns  1-5  of  a  continuation  line  are  not  blank. 
Columns  1-5  of  a  continuation  line  must  be  blank 
except  for  a  possible  'D*  in  column  1;  the 
columns  are  ignored  (WARNING) . 

Illegal  continuation.  Comments  cannot  be 
continued  and  the  first  line  of  any  program  unit 
cannot  be  a  continuation  line.  If  it  has  a  label 
field,  then  it  must  have  a  statement  field.  The 
line  is  deleted  (WARNING). 


N 
P 


Missing   END   statement.    An   END 
supplied    by    the   compiler   if 
encountered  (WARNING) . 


statement    is 
end-of-file   is 


Hollerith  string 
longer  than  255 
remainder  of  the 
ignored. 


or  quoted  literal  string  is 
characters  or  longer  than  the 
statement;    the   statement   is 


Non-FORTRAN  character  used.  The  line  contf»ins  a 
character  that  is  not  in  the  FORTRAN  character  set 
and  is  not  used  in  a  Hollerith  string  or  comment 
line.   The  character  is  ignored  (WARNING). 

Illegal  statement  label  definition.  Illegal 
(non-numeric)  character  in  statement  label;  the 
illegal  statement  label  is  ignored  (WARNING). 

Line  too  long  to  print.  There  are  more  than  80 
characters  (including  spaces  and  tabs)  in  a  line. 
Note:  this  diagnostic  is  issued  preceding  the 
line  containing  too  many  characters.  The  line  is 
truncated  to  80  characters  (WARNING) . 


Multiply  d.' 
(WARNING) 


fined   label 


The   label   is   ignored 


Statement  contains   unbalanced   parentheses, 
statement  is  ignored. 


The 


Syntax  error,  such  as  multiple  equal  signs.  The 
statement  is  not  of  the  general  FORTRAN  statement 
form;   the  statement  is  ignored. 

Statement  could  not  be  identified  as  a  legal 
FORTRAN  statement.   The  stateme..^  is  deleted. 
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C.1.2   Brrors  Reported  by  Secondary  Phases  of  the  Compiler 

Those  compiler  error  diagnostics  not  reported  by  the  initial  phase  of 
the  compiler  appear  immediately  after  the  source  listing  and 
immediately  before  the  storage  map.  Since  the  iiagnostics  appear 
after  the  entire  source  program  has  been  listed,  they  must  designate 
the  statement  to  which  they  apply  by  using  the  internal  sequence 
numbers  assigned  by  the  compiler. 

The  general  form  of  the  diagnostic  ia: 

Error: 
IN  LINE  nnnn,  text 

Warning: 

nnnn 


The  internal  sequence  number  of  the  statement  in  question. 


text 


A  short  description  of  the  error. 

Below,  listed  c^lphabetical  ly,  are  the  error  diagnostics.  Included 
with  each  diagnostic  is  a  brief  explanation.  Refer  to  the  POP- 1 1 
FORTRAN  IV  Language  Reference  Manual  for  information  to  help  correct 
the  error. 


The  notation   ••••   signifies   that   a   particular 
statement  label  appears  at  that  place  in  the  text. 


variable   name   or 


SECONDARY  PHASE  ERROR  DIAGNOSTICS 

ACCESS- 'DIRECT'  REQUIRES  PORH- ' UNFORHATTED' 

PORH-' FORMATTED'  has  been  specified  for   a   direct 
FORTRAN   IV  supports  only  unformatted  direct  acc3ss 
Correct  the  program  logic. 


access   file, 
input/output . 


ADJUSTABLE  DIMENSIONS  ILLEGAL  FOR  ARRAY  *•** 

An  adjustable  array  was  not  a  dumay  argument  in  a  subprogram  or 
the  adjustable  dimensions  were  not  integer  dummy  arguments  in  tne 
subprogram.  A  limension  of  one  is  used.  Correct  the  source 
proqram. 

ARRAY  EXCEEDS  MAXIMUM  SIZE  or 

ARRAY  ••*•  EXCr.rOS  MAXIMUM  SIZE 

The  storage  required  for  a  single  array  or  for  All  arrays  in 
total  IS  more  than  is  physically  addressable  (>32R  words).  This 
particular  error  may  reference  either  the  actual  statement 
containing  the  array  in  question,  or  the  first 
program  unit.  Correct  the  statement  in 
necessary  for  array  storage. 


statement  in  the 
er>'or  or  reduce  the  space 


ARRAY  ••••  HAS  TOO  MANY  CIMBNSIOMS 

An  array  has  more  than  seven  dimensions.    Correct 
The  leqal  range  for  dimensions  is  one  to  seven. 


the   proqrai 


••••  ATTEMPTS  TO  EXTEND  COMMON  BLOC*.  BACKWARDS 

While  attemping  to  EQUIVALEMCF  arrays  in  COMMON,  an  atteapt  wee 
made  to  extend  COMMON  past  the  recognised  beginning  of  COMMON 
•torege.   Correct  the  program  logic. 


BluOCR  EXCEEDS  MAXIMUM  SIZE 
An  attempt  was  made  to  allocate  more   space   to 
pnysically   addressable   (>)2R   words).   Correct 
•rrof. 


COMMON   than   is 
the  statement  in 
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CONSTANT  IN  rORMAT  STATEMENT  NOT  IN  RANGE 

An  int«q*c  constant  in  a  FORMAT  state«ent  was  not  in  the  proper 
range.  Check  t^at  all  integer  constants  are  within  the  legal 
range  (1  to  2S5)  . 


DANGLING  OPERATOR 

An  operator  (such  as  *,-,*$/)    is  aissing   an   operand. 
I"J^.   Correct  the  statement  in  error. 


Exanple : 


DEFECTIVE  DOTTED  KEYWORD 

A  dotted  relational  operator  was  not  recognized  or  there  is  a 
possible  aisuae  of  deciaal  point.  Check  the  foraat  for 
relational  operators;   correct  the  statement  in  error. 

DEFINE  FILE  MODE  MUST  BE  *l' 

The  third  argiment  inride  parentheses  in  a  DEFINE  FILE  statesient 
is  not  '0*  (unforsiattffd)  .   Correct  the  aode  specification. 

DO  TERMINATOR  ••••  PRECEDES  DO  STATEMENT 

The  stateiaent  specified  as  the  terainator  of  a  DO  loop  did  not 
appear  after  the  DO  stateaent.   Correct  the  program  logic. 

EXPECTING  LEFT  PARENTHESIS  AFTER  •••• 

An  array  naae  or  function  naae  reference  is  not  followed  by  a 
left  parenthesis.  Correct  the  stateaent  so  that  the  left 
parenthesis  is  included. 

EXPECTING  LEFT  PARENTHESIS  AFTER  SUBPROGRAM  NAME 

A  SUBROUTINE  or  FUNCTION  naae  occurs  without  an  arguaent  list 
specification.  Ch«>ck  for  a  typographical  error,  or  the  use  of 
the  saae  naae  for  a  local  variable  and  a  subprogram. 

EXTRA  CHARACTERS  AT  END  OF  STATEMENT 

All  the  necessary  information  for  a  syntactically  correct  FORTRAN 
stateaent  has  been  found  on  this  line,  but  more  information 
exists.  Check  that  a  coaaa  is  not  aissing  froa  the  line  or  that 
an  unintentional  continuation  chaiacter  does  not  appear  on  the 
next  line. 


FLOATING  CONSTANT  NOT  IN  RANGE 

A  floating  constant  in  an  expression  is  too  close  to  sero  to  be 
represented  in  the  internal  foraat.   Use  zero  if  possible. 

ILLEGAL  ADJACENT  OPERATOR 

Two  operators  (for  exaaple,  *,  /,  logical  oprators)  are  illegally 
placed  next  to  each  other.  Example:  I/*J.  Correct  the 
statement  in  error. 


ILLEGAL  CHARACTERS  IN  EXPRESSION 

An  illegal  character  has  been  found  in  an  expression.  Check  for 
a  typographical  error  in  the  stateaent.. 

ILLEGAL  DO  TERMINATOR  ORDERING  AT  LABEL  *••• 

DO  loops  are  nested  improperly.  Verify  that  the  range  of  each  DO 
loop  lies  completely  within  the  range  of  the  next  outer  loop. 

ILLEGAL  DO  TERMINATOR  STATEMENT  •••• 

A  DO  Stateaent  terainator  was  not  valid.  Verify  that  the  DO 
stateaent  terainator  is  not  a  GOTO,  arithaetic  IF,  RETURN, 
another  DO  stateaent,  or  logical  IF  -containing  one  of  these 
statesients.        


ILLEGAL  ELEMENT  IN  I/O  LIST 

An  itea,  expression,  or  iaplied  DO  specifier  in  an  I/O  list  is  of 
illegal  syntax.   Correct  the  I/O  list. 
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ILLEGAL  EMCODE/DECODE  FORMAT  SPECIFIER 

The  format  specification  (second  argument  inside  parentheses)  in 
an  ENCODE/DECODE  statement  is  not  a  FORMAT  statement  label  or 
array  name.   Correct  the  FORMAT  specification. 

ILLEGAL  ENCODE/DECODE  LENGTH  L  PRESSION 

The  length  specification  (first  argument  inside  parentheses)  in 
an  ENCODE  or  DECODE  statement  is  not  an  integer  expression. 
Correct  the  length  expression. 

ILLEGAL  ENCODE/DECODE  TARGET 

The  third  argument  inside  parentheses  in  an  ENCODE  or  DECODE 
statement  is  not  the  name  of  an  array,  array  element,  or 
variable.   Correct  the  target  specification. 


ILLEGAL  INITIAL  VALUE  EXPRESSION  IN  DO  STATEMENT 

A  valid  integer  expression  does  not  follow  the  equals  sign 
DO  statement.   Correct  the  initial  value  expression. 


in 


ILLEGAL  STATEMENT  IN  BLOCK  DATA 

An  illegal  stateibent  was  found  in  a  BLOCK  DATA  subprogram. 
Verify  that  a  FORMAT  or  executable  statement  does  not  occur  in  a 
BLOCK  DATA  subprogram. 

ILLEGAL  STATEMENT  ON  LOGICAL  IF 

The  statement  contained  in  a  logical  IF  was  not  valid.  Verify 
that  the  statement  is  not  another  logical  IP  or  DO  statement. 

ILLEGAL  SUBSCRIPTS  OR  SUBPROGRAM  ARGUMENT 

An  illegal  element  occurred  within  a  subscript  list  or  argument 
list  to  a  subprogram.   Correct  the  erroneous  statement. 

ILLEGAL  TYPE  FOR  OPERATOR 

An  illegal  variable  type  has  been  used  with  an  exponentiation  or 
logical  operator.  Check  that  the  variable  type  is  valid  for  the 
operation  in  question. 

ILLEGAL  USAGE  OF  OR  MISSING  LEFT  PARENTHESIS 

A  left  parenthesis  was  required  but   t.ot   found,   or  a   variable 

reference    or    constant    is    illegally   followed  by   a   left 

parenthesis.   Correct  the  format  of  the  statement  in  error. 

INTEGER  OVERFLOW 

An  integer  constant  or  expression  val-J-.-  is  outside  the  range 
-32767  to  +32767.  Correct  the  value  of  the  integer  constant  or 
expression  so  that  it  falls  within  the  let^'al  tf  ige  (-32767  to 
♦  32767)  . 


INVALID  COMPLEX  CONSTANT 

A  complex  constant   has 
statement  in  error. 


been   improperly   formed.    Correct   the 


INVALID  DIMENSIONS  FOR  ARRAY  **** 

An  attempt  was  made,  while  dimensioning  an  array,  t'o  explicitly 
specify  sero  as  one  of  the  dimensions.  Verify  that  zero  is  not 
used  as  a  dimension. 

INVALID  END-  OR  ERR>  KEYWORD 

The  END-  or  ERR=  specification  in  an  input/output  statement  is 
incorrectly  formatted.  Check  for  a  typographical  error  in  the 
statement. 


INVALID  EQUIVALENCE 

An  illegal  EQUIVALENCE,  or  EQUIVALENCE  that  is  contradictory  to  a 
previous  EQUIVALENCE,  was  encountered.  Correct  the  program 
logic. 


C-6 


FORTRAN  IV  ERROR  DIAGNOSTICS 


INVALID  FORMAT  SPECIFIER 

A  format  specifier  was  illegally  used.  Correct  the  statement  so 
that  the  format  specifier  is  the  label  of  a  FORMAT  statement  or 
an  array  name. 

INVALID  IMPLICIT  RANGE  SPECIFIER 

An  illegal  implicit  range  specifier  (for  instance,  nonalphabetic 
specifer,  or  specifier  range  in  reverse  alphabetic  order)  was 
encountered.  Verify  that  the  implicit  range  specifier  indicates 
alphabetic  characters  in  alphabetic  order. 

INVALID  LOGICAL  UNIT  ' 

A  logical  unit  reference  was  incorrect.  Correct  the  logical  unit 
reference  so  that  it  is  an  integer  variable  or  constant  in  the 
range  1  to  99. 


INVALID  OCTAL  CONSTANT 

An  octal  constant  is  too  large  or  contains  a  digit  other  than 
0-7.  Correct  the  constant  so  that  it  contains  only  legal  digits 
that  fall  within  the  octal  range  0  to  177777. 

INVALID  OPTIONAL  LENGTH  SPECIFIER 

A  data  type  declaration  optional  length  specifier  is  illegal. 
For  example,  REAL*4  and  REAL*8  are  legal,  but  REAL*6  is  not. 
Correct  the  statement  so  that  it  contains  only  a  valid  data  type 
declaration  length. 


INVALID  RADIX-50  CONSTANT 

An  illegal  character  was  detected  in  a  RADIX-50  constant. 
that  only  characters  from  the  RADIX-50  character  set  are 
a  RADIX-50  constant. 


Ver  i  f y 
used  in 


INVALID  STATEM..NT  LABEL  REFERENCE 

Reference  has  been  made  to  a  statement  number  that  is  of  illegal 
construction.  For  example,  GOTO  999999  is  illegal  since  the 
statement  number  is  too  long.  Check  that  the  statement  number 
consists  of  one  to  five  decimal  digits  placed  in  the  first  five 
columns  of  a  statement's  initial  line  and  that  it  does  not 
contain  only  zeroes. 


INVALID  SUBROUTINE  OR  FUNCTION  NAME 

A  name  used  in  a  CALL  statement  or  function  reference  is  not 
valid.  For  example,  use  of  an  array  name  in  a  CALL  statement 
routine  name  reference  is  illegal.  Verify  that  the  name 
specified  in  the  statement  is  spelled  correctly. 


INVALID  TARGET  FOR  ASSIGNMENT 

The  left  side  of  an  arithmetic  assignment 
variable  name  or  array  element  reference, 
in  error. 


statement   is   not   a 
Correct  the  statement 


INVALID  TYPE  SPECIFIER 

An  unrecognizable  data  type  was  used, 
indicated  is  valid. 


Verify  that  the  data   type 


INVALID  USAGE  OF  SUBROUTINE  OR  FUNCTION  NAME 

A  function  nar- -  appeared  in  a  DIMENSION,  COMMON,  DATA, 
EQUIVALENCE  t  data  type  declaration  statement.  Correct 
statement  in  error. 


or 
the 


INVALID  VARIABLE  NAME 

A  variable  name  contains  an  illegal   character,   is 
does   not   begin   with   an   alphabetic   character, 
statement  in  error. 


missing , 
Correct 


or 
the 
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LABEL  ON  DECLARATIVE  STATEMENT 

A  label  was   found   on   a   declarative   statement.    Correct 
program  so  that  declarative  statements  do  not  have  labels. 


the 


MISSING  ASSIGNMENT  OPERATOR 

The  first  operator  seen  in  an  arithmetic  assignment  statement  was 
not  an  equal  sign  (^).  For  example,  I+J»K.  Correct  the 
arithmetic  assignment  statement  in  error. 

MISSING  COMMA 

The  comma  delimiter  was  expected  but  not  found.  Correct  the 
format  of  the  statement  in  error. 

MISSING  COMMA  IN  OPEN  OR  CLOSE  KEYWORD  LIST 

Two  options  in  an  OPEN/CLOSE  keyword  list  are  not  separated  by  a 
comma.   Check  for  a  typographical  error  in  the  state.nent. 

MISSING  DELIMITER  IN  EXPRESSION 

Two  operands  have  been  placed  next  to  each  other  in  an  expression 
with  no  operator  between  them.   Correct  the  statement  in  error. 

MISSING  EXPRESSION 

A  required  expression  (for  example,  the  limit  expression  in  a  DO 
statement)  was  omitted.   Correct  the  syntax  of  the  statement. 

MISSING  LABEL 

A  stitement  label  was  expected  but  not  found.  For  example, 
ASSIGN  J  TO  I  is  illegal;  a  valid  statement  label  reference 
should  precede  'TO'  but  does  not.  Verify  that  the  reference 
preceding  'TO'  is  a  valid  statement  label  of  an  executable 
statement  in  the  same  program  unit  as  the  ASSIGN  statement. 

MISSING  LABEL  LIST  AFTER  COMMA 

In  an  assigned  GOTO  statement,  the  integer  variable  was  followed 
by  a  comma  but  no  list  was  found.  Check  for  a  typographical 
error  in  the  statement. 

MISSING  LEFT  PARENTHESIS  AFTER  OPEN  OR  CLOSE 

An  OPEN  or  CLOSE  statement  does  not  have  a  left  parenthesis 
preceding  the  keyword  list.  Check  for  a  typographical  error  in 
the  statement. 

MISSING  OPERATOR  AFTER  EXPRESSION 

An  exprersion  was  not  terminated  by  a  comma,  right  parenthesis, 
or  other  operator.  Check  for  a  typographical  error  in  the 
statement . 

MISSING  QUOVATION  MARK 

In  a  FIND  statement,  the  log'cal  unit  number  and  record  number 
were  not  separated  by  a  single  quotation  mark.  Correct  the 
statement  in  error. 

MISSING  RIGHT  PARENTHESIS 

A  right  parenthesis  was  expected  but  not  found.  For  example, 
READ(5,100,)  is  illegal.  Correct  the  format  of  the  statement  in 
error . 

MISSING  'TO'  IN  ASSIGN  STATEMENT 

The  keyword  'TO'  does  not  follow  the  label  specification  in  an 
ASSIGN  statement.  Check  for  a  typographical  error  in  the 
statement . 

HISSING  VALUE  FOR  KEYWORD  IN  OPEN  OR  CLOSE  STATEMENT 

A  keyword  requiring  a  value  was  specified  without  a  value. 
Correct  the  syntax  of  the  statement. 
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MISSING  VARIABLE 

A  variable  was  expected,  but  not  found.  For  example,  ASSIGN  100 
TO  1  is  illegal;  a  variable  name  should  follow  the  'TO'  but  does 
not.  Verify  that  the  reference  following  'TO'  is  a  valid  integer 
variable  name. 


MISSING  VARIABLE  OR  CONSTANT 

An  operand  (variable  or  constant)  was  expected  but  a  delimiter 
(such  as  a  commi  or  parenthesis)  was  found.  For  example,  WRITE() 
is  illegal;  a  unit  number  should  follow  the  open  parenthesis, 
but  a  delimiter  (close  parenthesis)  is  encountered  instead. 
Correct  the  format  of  the  statement  in  error. 


MODE  OF  EXPRESSION  MUST  BE  INTEGER 

An  integer  variable  or  expression  was  required,  but  not  found. 
For  example,  the  initial,  terminal,  and  increment  paremeters  of  a 
DO  statement  must  be  integer  variables  or  expressions.  Supply  a 
variable  or  expression  of  integer  type. 

MODES  OF  VARIABLE  *•**  AND  DATA  ITEM  DIFFER 

The  data  type  of  each  variable  and  its  associated  data  list  item 
roust  agree  in  a  DATA  statement.  Correct  the  format  of  the  items 
in  the  DATA  statement. 


MULTIPLE  DECLARATION  FOR  VARIABLE  **** 

A  variable  appeared  in  more  than  one  data  type  declaration 
statement  or  dimensioning  statement.  Subsequent  declarations  are 
ignored.   Correct  the  program  logic. 

MULTIPLE  DECLARATION  OF  OPEN  OR  CLOSE  KEYWORD 

A  keyword  has  been  specified  more  than  once  v^  a  single   npEN   or 

CLOSE  statement.  Remove  the  incorrect  or  duplicate  reference  to 
the  keyword. 

OPEN  OR  CLOSE  KEYWORD  VALL   MUST  BE  QUOTED  STRING 

A  keyword  that  requires  a  quoted-str ing  value  was  given  an 
expression  value.   Correct  the  syntax  of  the  statement. 

OPEN  OR  CLOSE  STATEMENT  REQUIRES  UNIT=  SPECIFIER 

No  UNIT-  specification  is  present  in  the  OPfN ,or  CLOSE  statement 
in  question  to  select  the  desired  logical  unit.  Add  the  UNIT= 
specification  to  the  statement. 

*  ■ 

PARENTHESES  NESTED  TOO  DEEPLY 

Group  repeats  in  a  FORMAT  statement  have  been  nested  too  deeply. 
Limit  group  repeats  to  eight  levels  of  nesting. 

PROGRAM  OR  BLOCK  DATA  STATEMENT  MUST  BE  FIRST 

A  program  name  or  block  data  name  statement  was  used,  but  was  not 
the  first  statement  found.  Correct  the  program  so  that  the 
statement  ia  first. 


P-SCALE  FACTOR  NOT  IN  RANGE  -127  TO  +127 

P-8cale  factors  were  not  in  the  range  -127  to  +127. 
statement  in  error. 


Correct   the 


refer«:nce  to  incorrect  type  of  label  ••*♦ 

A  statement  label  reference  that  should  be  a  label  on  a  FORMAT 
statement  is  not  such  a  label,  or  a  statement  label  reference 
that  should  be  a  label  on  an  executable  statement  is  not  such  a 
label.   Correct  the  program  logic. 


REFERENCE  TO  UNDEFINED  STATEMENT  LABEL 

A  reference  has  been  made  to  a  statement  label  that  has  not   been 
defined  anywhere  in  the  program  unit.   Correct  the  program  logic. 
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KCFERENCE  MUST  BE  UNLABELED 

A  DATA,  SUBROUTINE,  FUNCTION,  BLOCK   DATA,   arithmetic 
function    definition,   or   declarative   statement   was 
Correct  the  statement  in  error. 


statement 
labeled . 


STATEMENT  TOO  COMPLEX 

An  arithmetic  statement  function  h^s  more  than  ten  dummy 
arguments  or  the  statement  is  too  long  to  compile.  Verify  that 
the  number  of  dummy  arguments  in  an  arithmetic  statement  does  not 
exceed  ten;  break  long  statements  into  two  or  more  smaller 
statements . 


SUBROUTINE  OR  FUNCTION  STATEMENT  MUST  BE  FIRST 

A  SUBROUTINE,  FUNCTION  or  BLOCK  DATA  statement  is  not   the 
statement   in   a   program   unit.    Ensure  that,  if  present, 
statements  appear  first  in  a  program  unit. 


first 
these 


SUBSCRIPT  OF  ARRAY  ***♦  NOT  IN  RANGE 

Array  subscripts  that  are  constants  or  constant  expressions 

found   to   be   outside  the  bounds  of  the  array's  dimensions, 

operation  in  question  is  undefined.   Correct  the  program. 


are 

The 


SYNTAX  ERROR 

The  general  form  of  the  statement  was  not  formatted 
Check  the^  general  format  of  the  statement  in  error 
the  program. 


correctly, 
and  correct 


SYNTAX  ERROR  IN  INTEGER  OR  FLOATING  CONSTANT 

An  integer  or  floating  constant  has  been  incorrectly  formed.  For 
example,  1.23.4  is  an  illegal  floating  constant  because  it 
contains  two  decimal  points.  Correct  the  format  of  the  integer 
or  floating  constant  in  question. 

SYNTAX  ERROR  IN  LABEL  LIST 

The  list  of  labels  for  an  assigned  or  computed  GOTO  statement  is 
improperly  formatted,  or  contains  a  reference  to  an  entity  that 
is  not  the  label  on  an  executable  statement.  Correct  the  format 
of  the  list. 


TARGET  MUST  BE  ARRAY 

An  ENCODE/DECODE  statement  con  a  reference  to  an  array 
element  that  has  not  previous^.^  oeen  dimensioned.  Correct  the 
program  logic. 

UNARY  OPERATOR  HAS  TOO  MANY  OPERANDS 

Two  operands  have  been  specified  for  an  operator  (such  as  .NOT.) 
that  accepts  only  one  operand.  Check  for  a  typographical  error 
in  the  statement. 


UNLABELED  FORMAT  STATEMENT 

A  FORMAT  statement  was  not  labeled.   Correct 
in  error  by  assigning  it  the  proper  label. 


the  FORMAT  statement 


UNRECOGNIZED  KEYWORD  IN  OPEN  OR  CLOSE  STATEMENT 

The  OPEN  or  CLOSE  statement  in  question  contains  a  keyword  that 
is  not  recognized  by  the  compiler.  Check  for  a  misspelling  or 
typographical  error  in  the  keywords  used  in  the  statement. 

UNRECOG^'IZED  VALUE  FuR  OPEN  OR  CLOSE  KEYWORD 

A  keyword  that  requires  a  quoted-str i ng  value  was  specified  with 
an  unrecognized  value  string.  Fo"  example,  DISPOSE  =  'SURE'. 
Specify  a  valid  value  for  the  keyword. 
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USAGE  OF  VARIABLE  »•••  INVALID 

An  attempt  was  made  to  EXTERNAL  a  common  variable,  an  array 
variable,  or  a  dummy  argument.  Oc  an  attempt  was  made  to  place 
in  COMMON  a  dummy  argument  or  external  name.  Correct  the  program 
1  og  i  c . 

VALUE  OP  CONSTANT  NOT  IN  RANGE 

An  integer  constant  in  the  designated  source  piogram  line  exceeds 
the  maximum  unsigned  value  (65535).  This  error  is  also  printed 
if  an  invalid  dimension  is  specified  fo^  an  array  or  if  the 
exponent  of  a  floating-point  constant  is  too  large.  Correct  the 
statement  in  error. 


VARIABLE  **•*  INVALID  IN  ADJUSTABLE  DIMENSION 

A  variable  used  as  an  adjustable  dimension   was   not   an   integer 
dunsy  argument  in  the  s  bprogram  unit.   Correct  the  program. 


WRONG  NUMBER  OP  OPERANDS  POR  BINARY  OPERATOR 

An  operator  that  requires  two  operands  was  specified  with  only 
one  operand.  Example:  I«*J.  Check  for  a  typographical  error  in 
the  statement. 

WRONG  NUMBER  OP  SUBSCRIPTS  FOR  ARRAY  ••** 

An  array  reference  does  not  have  the  same  number  of  subscripts  as 
specified  when  the  array  was  dimensioned.  Correct  the  statement 
in  error. 


C.l.S  Marninq  Diaqnoatics 

Warning  diagnostics  report  conditiors  that  are  not  true  error 
conditions,  but  may  be  potentially  dangerous  at  execution  tiaw,  or 
present  compatibility  problems  with  FORTRAN  compilers  running  on  other 
DSr  Operating  Systems.  The  warning  diagnostics  are  normally  enabled, 
but  nay  be  suppressed  by  use  of  the  /NOWR  conpiler  switch.  The  form 
and  placesient  of  the  warning  diagnoaticis  are  the  save  as  thoce  for  the 
srtrondary  phase  error  diagnostics  (sae  Section  C.1.2),  except  that  the 
line  nosiber  reference  is  replaced  with  '[WARNING)'.  A  listing  of  the 
warning  diagnostics  follows: 


LOOP  ENTRY  AT  LABEL  •••• 

A  transfer  of  control  occur*  from  outside  the  containing  DO  loop 
to  the  label  indicated.  This  may  indicate  a  programminq  error 
(If  tha  loop  does  not  have  extanied  range). 

WON-STAWDARO  STATBHrNT  ORDERING 

Although  the  FORTRAN  IV  co«pi ler  has  lass  restrictive  state*ant 
ordering  tequiiesMnts  than  those  outlined  in  Chapter  7  of  the 
POP- 11  FORTRAN  IV  Language  Reference  Manual ,  nonadherence  to  the 
stricter  raquireaents  m^y  cause  error  conditions  on  other  FORTRAN 
cosipilers.   Sae  Chapter  3  of  this  document. 


POSSIBLE  MODIFICATION  OF  •••• 

The  indicated  variable,  which  is  used  as 
DO  loop,  May  be  BK>dified  within  tha  body 


a  control  parai 
of  that  loop. 


leter  of  a 


VARIABLE  ••••  IS  HOT  WORD  ALIGNED 

Placing  a  non- 4.0GICAL*!  variable  or  array  after  4  L0CICAL*1 
variable  ot  array  in  COMMON,  or  equivalencinq  non-L0GICAL*l 
variables  or  arrays,  to  LOGICAL'l  variables  or  arrays  can  causa 
this  condition.  An  attasipt  to  reference  the  variable  at  run  tiaa 
Will  causa  an  arror  condition. 
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VARIABLE  ••••  NAME  EXCEEDS  SIX  CHARACTERS 

A  variable  na«e  of  aore  than  six  characters  was  specified.  The 
first  sii  characters  were  used  as  the  true  variable  naae.  Other 
FORTRAN  compilers  may  treat  this  as  an  error  condition.  See 
Section  3.2  of  this  document. 


C.1.4   Pat«l  Coapil^T  Brror  Diagnoatics 


The  fatal  cosipiler  error  diagnostics  are  listed  below.  These 
that  are  sent  directly  to  the  initiating  terminal,  report 
hardware  error  conditions,  conditions  that  may 
require  rewriting  of  the  source  program,  and  compiler  errors  which  are 
the  result  of  software  errors. 


di  gnostics, 

cos.  and  string  errors 


POB  —  BAD  SWITCH 

An  illegal  switch  was  specified  in  the  compiler   conmand   string. 
Refer  to  Section  1.2.2  for  compiler  option  information. 


POR  —  BAD  SWITCH  VALUE 

An  illegal  value  was  specified   for   a   compiler   command   string 
switch.   Refer  to  Section  1.2.2  for  compiler  option  information. 


POR  —  CODE  GBNBRATION  STACK  OVBRPLOW 

A   Statement   is   too   complex   to   process, 
statements. 


Simplify   complex 


PCR  —  COMMAND  ERROR 

An  error  occurred  during  the  processing  of   an 
file.   Verify  that  the  command  file  exists  and 


i ''direct  c 
is  correct. 


and 


rOR  —  COMPILER  FATAL  BRROR,  ANALYSIS  FOLLOWS 

SosM  type  of  unexpected  error  wai  encountered  by  FORTRAN.  Please 
send  the  console  listing  with  a  copy  of  your  program  (on  some 
SMch I ne- readable  SMdium)  with  a  Software  Performance  Report  (see 
Appendix  G) . 


POR  —  CONSTANT  SUBSCRIPT  STACK  OVERFLOW 

Too  many  constant  subscripts  have  been  employed  in 
Simplify  the  statement. 


statement . 


POR  —  DTHANIC  HBHORY  OVBRPLOW 

The  program  unit  currently  being  compiled  cannot  be  processed   in 

the   available  memory  space.   Break  the  program  unit  in  question 
into  smaller  subprograms,  or  recompile  on  a  larger   machine.    If 

aore   mesK>ry    is   available,    the   compiler  can  be  either 

re-task-bui It  with  a  larger  EXTTSK,  or  installed  with  a  large  INC 
B  value. 


—  BRROR  READING  SOURCE  FILE 
An  unrecoverable  error  occurred  while  the  compiler  was  attempting 
to   read   a   source   program   input   file.    Correct  the  hardware 
problem  and  recompile. 


POR  —    ROR  WRITING  LISTING  FILE 

An  unrecoverable  error  occurred  while  the  compiler  was  attempting 
to  write  the  listing  output  file.  Hake  sure  that  the  output 
device  IS  wr i te-enabied,  and  that  sufficient  free  space  exists  on 
the  device  for  the  output  file.   Recompile  the  program. 

POR  —  BRROR  WRITING  OBJBCT  FILB 

An  unrecoverable  errar  occurred  while  the  compiler  was  attempting 
to  write  the  object  program  output  file.  Make  sure  that  the 
output  device  is  write-enabled,  and  that  sufficient  free  space 
exists  on  the  device  for  the  output  file.   Recompile  the  program. 
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FOR  —  OPEN  FAILED  FOR  PILE 

An  input  or  output  file  was  not  found.  Verify  that  the  specified 
file  and  device  name  exist. 

'OR  —  OPTIMIZER  STACK  OVERFLOW 

A  Statement  is  too  complex  to  process,  or  too  many  common 
subexpressions  occurred  in  one  basic  block  of  the  source  program. 
Simplify  complex  statements. 

FOR  —  SUBEXPRESSIONS  STACK  OVERFLOW 

An  attempt  was  made  to  compile  a  statement   that   could   overflow 

the  run-time  stack  at  execution  time.  Simplify  complex 
statements. 


FOR  --  SYNTAX  ERROR 

The  command  string  presented   to   the   compiler 
format.   Correct  the  command  string. 


was 


illegal 


in 


FOR  —  TOO  MANY  INPUT  FILES 

Only  one  input  file  is  allowed  in  a  command  string;  only  one 
source  file  can  be  compiled  at  a  time.  ?fer  to  Section  1.2  for 
more  information. 

FOR  —  TOO  MANY  OUTPUT  FILES 

No  more  than  two  output  files  (object  file  and  listing  file)  may 
be  specified  on  a  command  string.  See  Section  1.2  for  more 
information. 

FOR  —  WILD  CARD  NOT  ALLOWED 

The  wild  card  '**  is  not  valid  for  a  file  name,  type,  or  version. 
Consult  Section  1.1.2  for  correct  file  specifications. 


C.2   OBJICT-TIMB  SYSTEM  KRROR  DIAGNOSTICS 


C.2.1   Brror  Processing  Algorithm 

The  Object-Time  System  detects  many  input/output,  arithmetic,   invalid 
argument,   and   other   kinds  of  errors,  and  reports  them  ^  " 
terminal  by  means  of  logical  device  TI : .   The 
error   is   determined  by  an  error  control 


on  the  user's 

action   taken   for   each 

table  within  the  OTS.   (This 

means  of  the   ERRSET 


table  can  be  modified  during  program  execution  by 
subroutine.   See  Section  B.6.) 

Three  system  subroutines  are  provided  to  obtain  information  on  the 
occurrence  of  specific  errors,  and  to  specify  the  action  to  be  taken 
when  an  error  is  detected  by  the  OTS. 


The  ERRSNS  subioutine  obtains  information  about  the  most  recent  error 
that  has  occurred  during  program  execution.  It  provides  detailed 
information  on  errors  detected  by  File  Control  Services  (FCS). 

The  ERRTST  subroutine  modifies  the  action  to  be  taken  when  an  error  is 
detected  by  the  OTS.  In  many  cases,  the  type  of  continuation  action 
may  be  changed  from  that  specified  in  the  error  control  table.  (See 
Table  C-1.) 


ERRSNS,  ERRTST,  and  ERRSET  are  described  in  detail  in  Anpendix  B.  OTS 
error  codes  and  the  format  of  the  OTS  diagnostic  me -sages,  are  shown 
in  Section  C.2. 3.2. 
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Error  processing  for  each  error   is   controlled   by   a   control   byte. 
Significant  bits  are  as  follows: 


Continuation  bit 


Count  bit 


Continuation  type  bit 


If  this  bit  is  not  set,  the  task 
will  exit  as  a  result  of  this 
error.  If  set,  the  task  will 
continue  provided  certain  other 
conditions  are  met. 

If  set,  this  error  is  counted 
against  the  task  error  count  limit. 
If  that  limit  is  exceeded,  the  task 
will  exit. 

Two  types  of  continuation  action 
are  possible: 

1.  If  set,  return  to  routine  that 
reported  the  error  to  take 
appropriate  recovery  action  and 
proceed,  or 

2.  If  not  set,  take  an  ERR- 
transfer  in  an  I/O  statement. 
If  an  ERR>  transfer  is 
specified  for  the  error  and 
none  was  included  in  the 
input/output  statement,  the 
task  will  exit. 


The  above  three  conditions  must  all  be  satisfied  for  the  task  to 
continue. 

Log  bit  If  the  task  continues,  then  the  log 

bit  is  tested.  If  the  bit  is  set, 
an  error  message  is  produced  before 
continuing;  otherwise,  the  task 
continues  without  producing  a 
message. 

If  any  of  the  above  conditions  is  not  satisfied,  the  task  will  exit 
and  an  error  message  will  always  be  produced.  In  this  case,  the 
additional  text  "EXITING  DUE  TO"  is  included  in  the  error  message  so 
that  it  is  clear  why  a  task  is  abnormally  terminating. 

Two  additional  control  bits  are  used  to  specify  the  acceptability  of 
ERRSET  arguments. 


Return  permitted  bit 


If  set,  then  the  continuation  type 
bit  may  be  set  by  ERRSET  to  specify 
return. 


ERR*  permitted  bit 


If  set,  then  the  continuation  type 
bit  may  be  set  by  ERRSET  to  specify 
that  an  ERR*  transfer  is  to  occur. 


These  two  bits  are  used  by  ERRSET  to  check  the  validity  of  ERRSET 
arguments.  At  least  one  of  these  must  be  set  in  order  to  set  the 
continuation  bit.  The  continuation  type  argument  is  checked  against 
these  bits  for  acceptability. 

All  four  combinations  of  these  two  bits  occur  in  the  OTS,  although 
most  errors  are  in  one  of  two  groups: 

1.    I/O  errors  generally  permit  ERR«  continuation  type   but   not 
r«turn  continuation. 
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2.  Most  other  erirors  permit  return  continuation  but  no  ERR* 
transfer  continuation  (even  if  they  occur  during  I/O 
statement  processing) . 

Notable  exceptions  are  the  synchronous  system  trap  errors  (numbers  3 
through  10)  and  recursive  input/output  error  (number  40),  which  always 
results  in  task  termination,  and  the  input  and  output  formatted 
conversion  errors  (numbers  63  and  64),  which  allow  both  types  of 
continuation. 

The  initial  setting  of  the  error  control  bits  is  shown,  together  with 
error  messages,  in  Section  C.2.3. 


C.2.2  Object  Tiae  Syntea  Error  Message  Foraat 

An  OTS  error  message  consists  of  several  lines  of  information 
formatted  as  follows.  (Fixed  parts  of  the  message  shown  in  capital 
letters  and  variable  parts  in  lowercase  letters.) 

tsknam  --  EXITING  DUE  TO  ERROR  number 

text 

AT  PC  "  address 

FCS:   f.frr  F.et.'-l  filename  unit 

IN    xxxxxx  AT  yyy 

FROM  XX vex XX  AT  yyy 

•  • 

FROM  .WAIN.  AT  yyy 
The  variable  parts  of  the  message  are: 
tsknam 

The  name  of  the  task  in  which  the  error  occurred. 
Number 

The  error  number, 
text 

A  1-line  description  of  the  error. 

If  the  OTS  error  resulted  from  one  of  the  synchronous  system  traps, 
then  the  program  counter  will  be  shown  in  the  line  "AT  PC  =".  This 
line  is  only  produced  for  errors  numbered  5  through  12. 

If  the  OTS  error  resulted  from  an  error  reported  to  it  by  File  Control 
Services,  the  line  beginning  "FCS:"  will  be  included.  Consult  the  I_/0 
Operations  Reference  Manual  for  a  description  of  the  FCS  error  codes. 

f.ecc       The  value  of  the  F.ERR  field  of  the   Pile   Descriptor 
Block  (FDB) 

f.errl       The  value  of  the  F.ERR*1  field  of  the  FDB 

filename     The  name  of  the  file  (not  including  type  or  version) 

unit        The  logical  unit  on  which  this  error  occurred 
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ll«xt  follows  a  traceback  of  the  subprogram  calling  nest  at  the  ti»e  of 
the  error.  Each  line  represents  one  level  of  subprogran  call  and 
gives  the  following  identifications: 

xxxxxx      The  name  of  the  subprogram 

The  name  of  the  main  program  is  shown  as  .MAIN.  The 
name  of  a  subprogram  is  the  same  as  the  name  used  in 
the  SUBROUTINE  or  FUNCTION  statement.  Arithmetic 
statement  functions,  OTS  system  routines,  and 
routines  written  in  assembly  language  will  not  be 
shown  in  the  traceback. 

yyy  The  internal  sequence  number  of  the  subprogram  at 
which  the  error,  call  statement,  or  function 
reference  occurred 

A  question  mark,  or  a  blank,  instead  of  a  number 
indicates  that  the  program  unit  was  compiled  with  the 
/NOSN  compiler  switch  (suppress  sequence  number 
accounting)  in  effect,  and  hence  the  line  number  is 
not  knotm  for  that  program  unit. 


C.2.2.1  Short  M«ss«9e  file  -  In  order  to  save  space,  a  short  message 
file  ma.  be  included  that  prints  only  the  error  number.  This  may  be 
used  by  specifying  the  module  $SHORT  at  task  build  time.   For  example: 

HCR>TKB 

TKB>I«IAIN«  [  1 ,  11  SYSLIB/LB  :SSHORT,MAIN 


C.2.3  Object  Time  Systea  Error  Codes 

C.2.3.1  Initial  Control  Bit  S«tti->qs  -  The  following  table  shows  the 
initial  setting  of  the  significant  bits  in  the  error  control  byte,  as 
described  in  Section  C.2.1. 
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Table  C-1:   Error  Control  Bit  Settings 


•UMM 

wamn 

COMTIMJt? 

COOMT? 

court HUE 

LOG? 

FCaMITTEO 

I*** 7     nrruRH? 

TMT 

ff 

i 


1MM 
TtS 

res 

TBS 

res 
res 
res 
res 
res 
res 
res 
res 
res 
res 
res 


NO 
HO 
HO 
NO 
HO 
MO 
MO 
MO 
HO 
HO 
HO 
HO 
MO 
MO 

TBS 
TBS 
TBS 

res 

TBS 

res 

res 

TBS 
TBS 

res 
res 
res 
res 

MO 

res 


FATAL  res  HO  NO  IHVALIU    ritllOII    CALL 

FATAL  res  NO  NO  TASC    IMITI ALI ZAT ION    FAILUSB 

FATAL  Its  NO  HO  OOC    ADDReSS    TRAP     (SSTOl 

rATAL  res  no  ho  secncnt   fai<lt   (Ssiii 

.'A7AL  rtS  NO  NO  T-BIT  OR  BPT  TRAP  (S8T2) 

FATAL  res  NO  HO  lOT  TRAP  ( SST 1 ) 

FATAL  res  NO  MO  RBSeRVBU  IH8TRUCTI0M  TRAP... 

FATAL  res  SO  HO  MOH-RSX  WT  TRAP  (SSTS) 

FATAL  res  NO  HO  TRAP  INSTRUC7I0M  TRAP  (SST6I 

FATAL  res  HO  NO  POP- U  40  FIS  TRAP  (SST7| 

FATAL  res  NO  NO  FFP  HAROMARC  FAULT 

FATAL  res  NO  HO  FFP  ILLFGAL  OPCOOF  TRAP 

FATAL  res  HO  HO  FFP  UNoeFIHeO  VARIABLE  TRAP 

FATAL  res  NO  NO  FFP  NAINTeNANCE  TRAP 

BRR*  res  YBS  NO  ReMINO  ERROR 

RRR-  res  r*:s  ho  definefile  alreadt  dome 

FRR«  res  rES  no  record  too  long 

ERR-  TES  TES  no  BACKSPACE  ERROR 

BRR-  YES  YBS  NO  eMO-OF-FlLE  DURING  READ 

ERR-  YES  YES  SO  IHVALID  RECORD  HUMBER 

CUR-  YES  YES  NO  OCFINBFILE  NOT  DONE 

CUB*  YES  YES  HO  MORE  THAN  ONE  RECORD 

CR>>  YES  YIS  NC  CLOSE  ERROR 

CRR>  res  res  ho  mo  such  file 

BRR-  YES  TES  NO  OPEN  FAILURF 

CRR-  YES  Yes  MO  niXBD  ACCBSS  •MOBS 

ERR-  YES  res  NO  INVALID  LOGICAL  UNIT  NUHBeR 

RCTURN  res  NO  res  bmofile  to  dirbct  access  file 

ERR>  res  yes  no  unit  already  open 


res 
res 

TBS 

MO 

TBS 

TES 

res 

TES 
TES 
YES 

YES 
TES 
TES 
YES 
YES 
YES 
YES 
TES 


TBS  ERR-  TBS  YES  HO  INCONSISTENT  RECORD  LENGTH 

TBS  BBS*  TES  YES  NO  ERROR  DURING  WRITE 

TBS  BBR-  YBS  YES  HO  ERROR  DURING  READ 

NO  FATAI  YES  NO  NO  RECURSIVE  I  O  ATTEMPT 

YES  ERR-  YES  YES  MO  NO  FCS  BUFFER  ROOM 

YES  BRR>  res  YES  NO  OBVICE  HANDLER  NOT  RESIDENT 

TBS  RBTURN  TBS  NO  YBS  FILE  NAME  SPECIFICATION  ERROR^ 

YBS  ERR-  YES  YES  KO  DIRBCT  ACCESS  RECORD  SIZE... 

YES  BBB-  YES  YES  HO  UNSUPPORTED  OPEN  KEYHORC 

YBS  BtIN  YES  YES  NO  INCONSISTENT  OPEN  STATEMENT 

YES  ERR*  YBS  YES  HO  INFINITE  FORMAT  LOOP 

YBS  BRR>  YES  YES  YES  FORMAT  VAR I  ABLE-TYPE  MISMATCH 

TBS  ERR*  TES  YES  HO  SYNTAX  ERROR  IN  FORMAT 

NO  RETURN  YES  YES  YES  OUTPUT  CONVERSION  ERROR 

YBS  ERR-  YES  YFS  YES  INPUT  CONVERSION  ERROR 

res  ERB>  YES  YtS  NO  FORMAT  TOO  BIG  FOR  'FMTBUF' 

TBS  BNR«  YES  YES  NO  RECORD  TOO  BIG 

YES  ERR-  YES  TBS  NO  RBCORD  TOO  SMALL  FOR  10  LIST 


res 

Yt-S 
YES 
YES 
YES 

res 

TES 

Yi:s 

YES 
YES 
YES 
YES 
YES 
YFS 


YBS 
YBS 
TBS 
TBS 
TBS 
NO 

res 

TBS 
TES 

TES 

rE3 

TES 

res 

YES 


BRR>  YES  YES  MO  LIST  OIRECTEO  I  O  SYNTAX  ERROR 

RETURN  YES  NO  YES  INTEGER  OVERFLOH 

RETUKN  YES  NO  YES  INTEGER  ZERO  DIVIDE 

RETURN  YES  NO  TBS  FLOATING  OVERFLOW 

RETURN  TES  NO  TBS  FLOATING  ZERO  DIVIDE 

RETURN  YES  NO  TBS  FLOATING  UNDERFLOW 

RETURN  YES  NO  YBS  FPP  FLOATING  TO  INTEGER... 

RETURN  YES  NO  YES  WRONG  NUMBER  OF  ARGUMENTS 

RETURN  YES  NO  TES  INVALID  ARGUMENT 

RETURN  YES  NO  YES  UNDEFINED  EXPONENTIATION 

RETURN  YES  NO  YES  LOGARITHM  OF  NEGATIVE  VALUE 

RETURN  YES  NO  YES  SQUARE  ROOT  OF  NECATIVF  VALUE 

RETURN  YES  HO  YES  INVALID  ARGUMENT  T(>  LIBRARY... 

RETKRN  YES  NO  YES  INVALID  ERROR  NUMBER 


M 

s 

a: 


til 

112 


NO 
YES 


TBS 

s 

YBS 

YES 


NO 
HO 

NO 

NO 

YES 

NO 
NO 

YES 
YES 


FATAL 

RETURN 

FATAL 
PATAL 
RETURN 

FATAL 
FATAL 

RETURN 
RETURN 


YES 
YES 

res 
res 
res 

TES 

res 

YES 
YE.S 


NO 
NO 

NO 
NO 
NO 

NO 
NO 

NO 

NO 


NO 
YBS 

NO 
HO 
YES 

HO 
HO 

YES 
YES 


COMPlLEi)  DETECTED  ERROR 
COMPUTED  GOTO  OUT  OF  RANGE 

INCOMPATIBLE  FORTRAN  OBJECT... 
MISSING  FORMAT  CONVERSION... 
FTN  FORTRAN  ERROR  CALL 


DIRECTIVE: 
DIRECTIVE: 


MISSING  ARGUMENTS 
INVALID  EVENT  FLAG. 


VIRTUAL  INITIALirt  FAILURE 
VIRTUAL  ARRAY  MAPPING  ERROR 


1  .     mi«     ipi  1  l«s 


ASSIGN    onl/;       f ->i     OPEN,    the    error    ti  i  •  s    »rf:       YES,    YES,    ERR» ,    YES,    YES,    Nn. 


C-17 


FORTRAN  IV  ERROR  DIAGNOSTICS 


C.2.3.2   Error  Messages  - 

Group  0  -  Severe  Errors 

These  mess iges  result  from  severe  error  conditions  for  which  no  error 
recovery  is  possible.  Consul,  the  appropriate  executive  reference 
manual  for  details  of  what  error  conditions  will  cause  traps  to  the 
System  Synchronous  Trap  Table  entries  cited  below. 

1  INVALID  LRROR  CALL 

A  TRAP  instruction  has  been  executed  whose  low  byte  is 
within  the  range  used  by  the  OTS  for  error  reporting  (see 
Section  C.2.4)  but  for  which  no  error  condition  is  defined. 
Correct  the  program  logic. 

2  TASK  INITIALIZATION  FAILURE 

Task  start  up  has  failed  for  one  of  the  following  reasons: 


1*  The  directive  to  initialize  synchronous  system  trap 
handling  (SVTK$)  has  returned  an  error  indication. 

2.  The  Executive  directive  to  enable  t'..?  FPP  asynchronous 
trap  (SPPA$)  has  returned  an  error  indication.  This  is 
usually  due  to  using  the  FPP  version  of  tne  OTS  on  an 
operating  system  that  does  not  support  the  FP-11. 


• 


The  File  Control  Services  initialization  call   (FINIT$) 
has  returned  an  error  indication. 


ODD  ADDRESS  TRAP  (SST  0) 

An  odd  address  was  detected  during  execution.   This  trap   is 
useful  in  determining  which  instruction  generated  the  error. 


SEGMENT  FAULT  (SST  1) 

This  memory  protect   violation   is   most   likely   due 
subscript  value  out  of  range  on  an  array  reference. 


to 


T-BIT  OR  BPT  TRAP  (SST  2) 

A  trap  has  occurred  because  the  trace  bit  was  set  in  the 
processor  status  word  or  a  BPT  instruction  was  executed. 
These  cottditions  should  not  occur. 


lOT  TRAP  (SST  3) 

A  trap   has   occurrcrd   as   a   result   of   exe  uting 
instruction.   This  condition  should  not  occur. 


an 


lOT 


RSSERVED  INSTRUCTION  (SST  4) 

The  program  has  attempted  to  execute  an  illegal  instruction. 
This  may  be  caused  by  task  building  with  the  wrong  FORTRAN 
library  for  the  given  hardware  configuration. 


NON-RSX  CMT  (SFT  5) 

Th^  program  has  executed  an  EMT  instruction  whose 
IS  not  in  the  range  used  by  the  executive. 


low   byte 


9    TRAP  INSTRUCTION  TKAP  (SST  6) 

A  trap  instruction  has  been  executed  whose  low  byte  is 
outside  the  range  used  for  OTS  error  messages  (see  Section 
C.2.4  below) . 

10    PrPll/40  FIS  TRAP  (SST  7) 

A  module  using  FIS  was  linked  with  a  non-FIS  FORTRAN  librar/ 
(R8X-1IN  only).  This  message  may  also  result  when  an 
operating  system  generated  for  an  11/40  is  used  on  another 
•jsteai  (•••curing  fPP  inatructiona)  , 
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11  PPP  HARDMARE  KAULT 

The  PPP  Floating  Exception  Code  (PEC)  register  contained  the 
value  0  following  an  PPP  interrupt.  This  is  probably  a 
hardware  malfunction. 

12  PPP  ILLEGAL  OPCODE  TRAP 

The  PPP  ^as  detected  an  illegal  floating-point  instruction. 

13  PPP  UNDEPIMED  VARIABLE  TRAP 

The  PPP  loaded  an  illegal  value  (-0.0).  This  trap  should 
not  occur  since  the  OTS  ir it ial i sa* *  on  routine  does  not 
enable  this  trap  condition.  A  negative  zero  value  should 
never  be  produced  by  any  PORTRAN  operation. 

14  PPP  NAINTENAMCE  MODE  TRAP 

The  FP7  has  interrupted  with  a  Pleating  Point  Exception  Code 
register  value  of  14  (octal).  This  is  probably  a  hardware 
mal function. 

G^oup  1  -  General  Input/Output  Errors 

T  .ese  Messages  result  fro«  errors  related  to  the  file  systeai. 

20  REWIND  ERROR 

An  error  condition  was  detected  by  PCS  during  the  .POINT 
operation  used  to  position  to  the  beginning  of  a  file. 

21  DBPINEPILE  ALREADY  DONE 

A  second  DEPINEPILE  statesient  was  attempted  on  a  unit.  The 
second  DEPINEFILL  is  ignored.  To  change  DEPINEPILE 
specification,  a  CLOSE  operation  must  be  performed  before 
the  second  DEPINEPILE. 

22  RECORD  TOO  LONG 

A  record  has  been  read  that  is  too  large  to  fit  into  the 
buffer  specified  by  the  KAXBUF  TKB  option.  Rebuild  the  task 
using  a  larger  NAXBUF  specification. 

23  BACKSPACE  ERROR 

One  of  the  following  errors  has  occurred: 


•  .    BACKSPACE  was  attempted  on  a  fie  opened   f.or   appending 

(see  Section  2.5.6) 
b.    PCS  has  detected  an  error  condition  during   the   .POINT 

opration  used  to  rewind  the  file. 
e«    PCS  has   detected   an   error   condition   while   reading 

forward  to  the  desired  record. 


24 


25 


26 


27 


END-OP-PILE  DURING  HEAD 

Either  an  end-file  record  produced  by  the  ENDPILE  statement 
of  the  PCS  (  d-of-file  condition  has  been  encountered  during 
a  READ  statement  and  no  ENd«  transfer  specification  was 
provided. 

INVALID  RECORD  NUMBER 

A  direct-access  READ,  tfRITE,  or  PIND  statement  has  specified 
a  record  number  outside  the  range  from  one  to  the  value 
speciiied  in  a  DEPINEPILE  statement. 

ORPINEPILE  NOT  DONE 

A  direct  access  READ,  WRITE,  or  PIND  operation  was  attempted 
before  a  DEPINEPILE  was  performed. 


MORE  THAN  ONE  RECORD 

An  attempt  was  made  to  read  or   write  more 
record  in  an  ENCODE  or  OBCODB  statement. 


than   a   single 
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28  CLOSE  ERROR 

An  error  condition  has  been  detected  by  PCS  during  a  CLOSE 
operation.   (Refer  to  ^.action  C.2.2.) 

29  NO  SUCH  PILE 

A  file  with  the  specified  name  could  not  be  found  during  an 
OPEN  operation. 

30  OPEN  PAILURE 

PCS  has  detected  an  error  condition  during  an  OPEN 
operation.  This  message  is  used  when  the  error  condition  is 
not  one  of  the  more  common  conditions  for  which  specific 
error  messages  are  provided.   (Refer  to  Section  C.2.2.) 

31  NIXED  ACCESS  NODES 

An  attenpt  was  made  to  use  both  formatted  and  unformatted 
operations,  or  both  sequential  and  direct  access  operations, 
on  the  same  unit. 


32  INVALID  LOGICAL  UNIT  NUNBER 

A  logical  unit  number  was  used  that   is   outside   the   range 
specified  by  the  TKB  UNI'^S*  option. 

33  ENDFILE  TO  DIRECT  ACCESS  FILE 

An  end- file  record  may  not  be  written   to   a   direct   access 
file. 


34 


37 


UNIT  ALREADY  OPEN 

A  DEPINBPILE  Statement,  CALL 
attempted  that  specified  a 
input/output . 


ASSIGN,   or   CALL   FDBSET   was 
logical  unit  already  opened  for 


INCONSISTENT  RECORD  LENGTH 

An  existing  direct  access  file  has  been  opened  whose  record 
length  attribute  is  not  the  same  as  specified  in  the 
DEFINEPILE  Statement.  Ensure  that  the  file  was  created  as  a 
direct  access  file.   The  record  length  is  not  changed. 


39 


39 


TrrCK  SCRISG  WRITE 

PCS  has  detected  an 
to  Section  C.2.2.) 


error  condition  while  writing, 


ERROR  DURING  READ 

PCS  has  detected  an  error  condition  while 
to  Section  C.2.2.) 


(Refer 


reading.    (Refer 


40    RECURSIVE  I/O  ATTENPT 

An  expression  in  the  I/O  list  of  a  READ  or  WRITE  statement 
has  caused  initiation  of  another  READ  or  WRITE  operation. 
This  can  happen  if  a  FUNCTION  that  performs  I/O  is 
referenced  in  an  expression  in  a  READ  or  WRITE  statement  I/O 
list. 


41  NO  PCS  BUFFER  ROON 

There  is  not  enough  free  core  left  in  the  File  Control 
Services  buffer  area  to  set  up  required  I/O  buffers. 
Rebuild  the  task  with  a  larger  ACTPIL  declaration  or  reduce 
the  level  of  multi-b>if fer ing. 

42  DKVICB  HANDLER  NOT  RESIDENT 

During   an  open  operation,   the   file   name   specification 

included   a  device   for   which  no  handler  task  is  resident. 

Ensure  that  the  handler  is  resident  and  the  device  named  is 
legal. 
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43  FILE  NAME  SPECIFICATION  ERROR 

The  file  name  string  used  in  a  CALL  ASSIGN  is  syntactically 
invalid,  contains  a  switch  specification,  references  an 
undefined  device  mnemonic,  or  is  otherwise  not  acceptable  to 
the  operating  system. 

44  RECORD  SIZE  TOO  BIG  FOR  'MAXBUF' 

A  OEFINEFILE  statement  has  specified  a  record  size  that 
exceeds  the  size  available  in  the  record  buffer.  Rebuild 
the  task  using  a  larger  TKB  NAXBUF  specification. 

45  UNSUPPORTED  OPEN/CLOSE  KEYWORD  OR  OPTION 

A  keyword  or  keyword  value  in  the  OPEN  or  CLOSE  statement 
indicated  is  invalid  under  this  particular  operating  system. 

46  INCONSISTENT  OPEN/CLOSE  STATEMENT  SPECIFICATIONS 

The  specifications  in  an  OPEN  or  subsequent  CLOSE  statement 
have  indicated  one  or  more  of  the  following: 


a. 

e* 
4. 


A  'NEW'  or  'SCRATCH'  file  which  is  'READONLY*. 
•APPEND'  to  a  'NEW',  'SCRATCH',  or  'READONLY'  file. 
•SAVE'  or  'PRINT'  of  a  'SCRATCH'  file. 
•DELZTE'  or  'PRINT'  of  a  'READONLY*  file. 


Correct  the  OPEN  or  CLOSE  statement  to  remove  the  conflict. 

Group  2  -  Element  Transmission  Errors 

These  messages  result  from  errors  related  to  transmitting  data  bett«een 
a  FORTRAN  program  and  an  internal  record. 


60 


61 


62 


63 


64 


<5 


INFINITE  FORMAT  LOOP 

The  format  associated  with  an  I/O  statement  that  includes  an 
I/O  list  has  no  field  descriptors  to  use  in  transferring 
those  variables. 

FORMAT/VARIABLE  -  TYPE  MISMATCH 

An  attempt  was  made  to  output  a  real  variable  with  an 
integer  field  descriptor  or  an  integer  variable  with  a  real 
field  descriptor. 

SYNTAX  ERROR  IN  FORMAT 

A  syntax  error  was  encountered  during  the  processing  of  an 
object>time  format  specification.  Ensure  that  the 
construction  of  the  format  specification  is  correct. 

OUTPUT  CONVERSION  ERROR 

During  a  formatted  output  opeiration,  the  value  of  a 
particular  number  could  not  be  output  in  the  specified  field 
length  without  losis  of  significant  digits.  The  field  is 
filled  with  asterisks  (*). 

INPU*^  CONVERSION  ERROR 

During  a  formatted  input  operation,  an  illegal  character  was 
detected  in  an  input  field  or  the  inpjt  value  overflowed  tae 
range  representable  in  the  input  variable.  The  value  ot  the 
variable  is  set  to  zero. 


FORMAT  TOO  BIG  FOR  'FMTBUF' 

The  OTS  has  run  out  of  memory  %rhile  scanning  an  array  format 
that  was  generated  at  run  time.  The  default  internal  format 
buffer  length  is  64  bytes.  Th«s  may  be  increased  by  using 
th*  FMTBUF  TKB  option  (see  Section  1.3.2.8). 
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66 

RECORD  TOO  BIG  FOR  'HAXBUF' 

During  an  output  operation,  a  record  was  specified  that   was         /^^ 
longer   than  the  maximum  record  length.   The  default  maximum         ^^p 
record  length  is  132  (decimal)  bytes.   This  may   be   changed         ^^ 
by   use   of   the  HAXBUF   Task   Builder   option  (see  Section 
1.3.2.4). 

67 

RECORD  TOO  SHALL  FOR  I/O  LIST 

A  READ  statem-  t  has   attempted   to   input   more   data   than 
existed  in  the  record  being  read — for  example,  the  I/O  list. 
Correct  the  program  or  the  data. 

Group  3  -  Arithaetic  errors 

Th«se  messages   result   fcon   arithmetic    overflow   and    underflow 
conditions. 

70 

INTEGER  OVERFLOW 

During   an     integer    multiplication,    division,    or 
exponentiation   operation,   the  value  of  the  result  exceeded          _ 
32767  in  magnitude.    Correct   the   program   logic.    Note:         ^^k 
Integer  overflow  may  not  always  be  detected.                        ^^^ 

71 

INTEGER  ZERO  DIVIDE 

During  an  integer  mode  arithmetic  operation,  an  attempt   was 
made  to  divide  by  zero.   Correct  the  program  logic. 

72 

FLOATING  OVERFLOW 

During  an  arithmetic  operation,  a  real   value   has   exceeded 
the   largest   representable   real  number.   The  result  of  the 
operation  is  set  to  zero.   Correct  the  program  logic. 

73 

FLOATING  ZERO  DIVIDE                                                           ^B 
During  a  REAL  mode  arithmetic  operation,  an  attempt  was  made         ^^ 
to  divide   by   zero.   The  result  of  the  operation  is  set  to 
sero.   Correct  the  program  logic. 

74 

FLOATING  UNDERFLOW 

During  an  arithmetic  operation,  a  real  value  has  become  less 
than   the   smallest   representable  real  number,  and  has  been 
replaced  with  a  value  of  zero.   Correct  the  program  logic. 

75 

FPP  FLOATING  TO  INTEGER  CONVERSION 

The  conversion  of  a  floating-point  value  to  an   integer   has         ^^^ 
resulted   in   a  value  that  overflows  the  range  representable         ^^^ 
by  an  integer.   The  resulting  value  is  unpredictable. 

Group  4  -  Argunent  Errors 

These  Messages  result  from   incorrect   calls   to   FORTRAN   IV-supplied 
functions  or  subprograms. 

rORTMUl  IV  IRROR  DIAGNOSTICS 

• 

80 

WRONG  NUHBER  OF  ARGUHENTS 

An  improper  number  of  arguments  was  used   in   a   call   to   a 
FORTRAN  library  function  or  system  subroutine. 

•  1 

INVALID  ARGUHENT 

One  of  the  FORTRAN  library  functions  or   system   subroutines 
has  detected  an  invalid  argument  value.   See  Appendix  B. 

•  2 

ONOI^INEO  EXPONENTIATION                                                      ^B 
}   An  exponentiation  has  been  attempted  that  is   mathematically        ^^ 
undefined — for  example--0.**0. 
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83  LOGARITHM  OF  NEGATIVE  VALUE 

An  attempt  was  mad,>^    to  take   the   logacithm  of   zero  or   a 
negative  number.   The  result  returned  is  zero. 

84  SQUARE  ROOT  OF  NEGATIVE  VALUE 

An  attempt  was  made   to  evaluate   the   square   root   of  a 
negative  value.   Zero  is  returned  as  the  result. 

•5    INVALID  ARGUMENT  TO  LIBRARY  FUNCTION 

An  invalid  argument  was  used  in  a  call  to  a  FORTRAN   library 
function. 

•6    INVALID  ERROR  NUMBER 

The  error  number  argument  to  one  of  the   subroutines   ERRSET 
or  ERRTST  is  not  a  valid  error  number 


GROUP  5  -  Miscellaneous  Errors 


90    COMPILER  DETECTED  ERROR 

An  attempt  is  made  to  link  and  run  an  object  file  with 
errors,  generated  by  the  FORTRAN  compiler,  reported  during 
compilation.  This  error  will  result  when  the  illegal  source 
statement  is  executed. 


91    COMPUTED  GOTO  OUT  OF  RANGE 

The  integer  variable  or  expression  in  a  computed  GOTO 
statement  was  less  than  1  or  greater  than  the  number  of 
statement  level  references  in  the  list.  Control  is  passed 
to  the  next  executable  statement.  (See  the  PDP-11  FORTRAN 
IV  Language  Reference  Manual . ) 

100  DIRECTIVE:   MISSING  ARGUMENTS 

A  call  to  a  system  directive  subroutine  was  made  in  which 
one  or  more  of  the  arguments  required  for  directive 
execution  were  not  given. 

101  DIRECTIVE:   INVALID  EVENT  FLAG  NUMBER 

A  call  to  a  system  directive  subroutine  was  made  in  which 
the  argument  used  for  event  flag  specification  was  tot  in 
the  valid  range  (1  to  64). 

Ill   VIRTUAL  ARRAY  INITIALIZATION  FAILURE 

a)  The  total  storage  requirements  for  VIRTUAL  arrays  in 
the  program  exceed  the  currently  available  memory  on 
the  system. 

Reduce  VIRTUAL  storage  requirements  by   decreasing   the 
size  of  VIRTUAL  arrays  declared  in  the  program. 


b)    Memory  Management   Directive   support 
without  EIS  hardware. 


is   attempted 


c)  Memory  Mangement  Directive  support  is  attempted  on  a 
system  that  does  not  support  Memory  Management 
Directives. 

112   VIRTUAL  ARRAY  MAPPING  ERROR 

An  attempt  has  been  made  to  reference  outside  the  bounds  of 
the   extended   memory   region  allocated  to  VIRTUAL  arrays  in 
— — —   this  program,  probably  cau'bed  by  a  subscript  out  of  bounds. 
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C.2.4   Notes  on  OTS  Brror  Processing  Implementation 

GTS  error  reports  are  initiated  by  execution  of  a  TRAP  instruction  in 
which  the  low  byte  of  the  instruction  contains  the  internal  error 
code.  Internal  error  codes  are  128  (decimal)  greater  than  the 
externally  printed  error  code. 

The  first  128  (0  to  127)  trap  codes  may  be  used  as  follows;  TRAP 
instructions  transfer  control  to  the  OTS  error  processor  by  means  of  a 
System  Synchronous  Trap  Table  located  in  the  OTS  impur«»  work  area. 
The  first  word  of  this  table  has  the  global  symbol  $SST.  Coding 
similar  to  the  following  might  be  used  to  intercept  control: 


;  INITIALIZATION 
INIT:      NOV 


$SST+14. ,SST6 
|INTCEP,SSST+14, 


;SAVE  OTS  TRP  ADDR 
;PUT  NEW  ADDR  IN  SET 
; TABLE 


SST6: 


.WORD 


;  TRAP 

HANDLER 

INTCEP: 

CMP 

#128. 

15: 

JMP 

•  •  • 

1$ 
3SST6 

(SP)> 

Similar  techniques  could  be  used  to  intercept 
traps. 


;LOW  BYTE  _*2  OF  TRAP 

; INSTRUCTION 

; BRANCH  IF  USER  CODE 

;GOTO  OTS 

;USER  PROCESSING 

;DISCARD  EXTRA  WORD 
;EXIT  INTERRUPT 

the   other   synchronous 


OTS  error  messages  are  output  to  logical  device  TI :  by  means  of  a  LUN 
automatically  provided  by  the  Task  Builder  in  addition  to  those 
specified  by  the  UNITS  directive.  If  for  any  reason  the  QIO  directive 
used  to  write  the  error  lines  receives  an  ertor  condition  return,  then 
an  immediate  exit  is  taken  to  the  Executive. 
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D.l   COHPATIBILITY  WITH  POP-11  PORTRAN-77 


1.  PORTRAN-77  (P77)  logical  testa  check  only  the  highest-order 
bit  of  the  valu'-,  and  treats  a  1  as  .TRUE,  and  a  0  as 
.FALSE. 

FOR  logical  tests  consider  any  nonzero  bit  pattern  in  the 
lowest-order  byte  of  a  LOGICAL  variable  to  be  .TRUE,  and  an 
all-zero  bit  pattern  in  that  byte  to  be  .FALSE.. 

2.  The  FOR  implementation  of  DO  loops  does  not  enforce  the 
restrictions,  stated  in  the  language  manual,  for  changing  DO 
loop  parameters,  including  the  control  variable,  within  the 
range  of  the  loop.  FORTRAN-77  permits  DO  parameters  other 
than  the  control  variable  to  be  changed.  Such  changes  do  not 
affect  the  number  of  times  the  loop  is  executed  (the 
iteration  count  computed  at  the  start  for  the  loop).  FORTRAN 
programs  that  violate  the  FOR  rules  but  execute  as  desired 
may  behave  differently  under  F77. 

3.  In  F77,  INTEGER*4  causes  both  32~bit  allocation  and  32-bit 
computation.   Only  16  bits  are  used  for  computation  in  FOR. 

4.  F77  provides  the  L0GICAL*2;   FOR  does  not. 

5-  E77  checks  the  label  list  in  an  assigned  GO  TO  at  run  time; 
FOR  checks  only  for  the  validity  of  the  labels. 
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You  can  use  FORTRAN  callable  subroutines  to  perform  Real  Time  Process 
Control »  Process  I/O,  and  most  of  the  syste.n  directives.  These 
routines  are  described  in  the  RSX-llM  Executive  Reference  Manual  or 
the  RSX-llM  I/O  Drivers  Heferenc*'  Manual^  

Two  types  of  bit-string  manipulations  —  logical  and  shifting  -- 
support  these  calls.  In  order  to  process  words  from  arrays,  the 
system  software  must  be  able  to  manipulate  information  on  a  bit-by-bit 
basis. 


S.l   LOGICAL  OPBRATIONS 

These  operations  are  implemented  as  function  subprograms.  Ir  the 
following  functions,  m  and  n  specify  integer  variables  or  array 
elements.   Operations  are  performed  on  a  full  word,  bit  by  bit. 

These  operations  are  supported  for  compatibility  purposes  only.  The 
FORTRAN  logical  operators  .AND.,  .OR.,  .COk.,  .EQV.,  and  .NOT.  are 
simpler  to  use  and  generate  better  code. 


Typm 

Inclusive  OR 


lOR  (m,n) 
Logical  Product      lAND  (m,n) 
Logical  Complement   NOT  (m) 
Exclusive  OR        lEOR  (m,n) 


Punction  Logical  Operation  Variable  Description 

m . OR . n 


m  and  n  are 
logically  added 

m.AND.n      m  and  n  are  logically 
multiplied 

.NOT.m        m  is  logically 
complemented 

m.XOR.n      m  and  n  are 

exclusively  added 


# 


1.2   SHIFT  OPBRATIONS 

The  logical  shift  is  implemented  as  a  function  subprogram.  A  right  or 
left  shift  can  be  specified.  Zero  is  k'ropagated  following  the  shifted 
value,  and  the  argument's  sign  is  not  extended. 

ISHFT  {ut,    n)  ■/;„■,:/:■> 


The  argument  to  be  shifted 
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The  number  of  positions  to  be  shifted  and  the  direction   of   the 
shift: 

n>0  shift  left 

n<0  shift  right 

n«0  no  shift 

The  absolute  value  of  n  should  not  exceed  15  or   the   function   result 
will  be  zero. 
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P.l   RBDOCING  FORTRAN  IV  TASK  SIZE 

This  appendix  gives  programming  suggestion?  for  reducing  the  size  of 
FORTRAN  IV  task  images.  It  shows  how  to  override  the  Task  Builder's 
default  assumptions.  Putting  these  hints  to  work  can  result  in 
substantial  mcHnory  savings  with  relatively  little  effort. 


F.2   SOl'PRBSSIIIG  STATEMENT  NUMBER  STORAGE 

The  /-SN  (/NOSN)  switch  suppresses  the  storage  of   internal   sequence 
numbers. 

To  set  the  /-SN  (/NOSN)  switch,  place  it  in  the  FOR  command   line   as 
follows: 

FOR>TRANS,TRANS-TRANS/NOSN 


F.3   RBDOCING  THE  NOMBER  OF  LOGICAL  ONITS  AND  OPEN  FILES 

The  Task  Builder  assigns  six  logical  units  and  four  open  files,  as 
defaults,  to  a  FORTRAN  program  regardless  of  the  number  the  program 
actually  uses.  The  ACTFIL>  and  UNITS'  commands  can  significantly 
reduce  the  task  size  by  specifying  the  actual  number  simultaneously 
open  (or  active)  files  (ACTFIL*)  and  the  actual  number  of  logical 
units  (UNITS*)  required  by  the  program,  provided,  of  course,  that  the 
required  number  are  less  than  the  default  assumptions.  (Requesting  a 
smaller  number  of  units  than  the  program  actually  uses  causes  an  error 
at  execution  time.) 

To  use  these  commands,  enter  the  key  word  followed  by  the  required 
number  of  units  or  files  in  decimal.  The  following  commands  request 
three  logical  units  and  three  active  files: 

UNITS-3 
ACTFIL-3 


F.4   OSIHG  THE  SHORT  ERROR  MESSAGE  FILE  "^ 

FORTRAN  IV  provides  two  error  message  modules,  one  containing  full 
•  rcor  messages  and  c<ne,  the  short  message  module,  containing  only 
error  numbers.  The  OTS  uses  the  full  error  message  module  by  default. 
This  full  message  module  occupies  memory  space  that  can  be  freed  up  by 
requesting  the  short  message  module. 
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To  include  the  short  message  module  in  the  task  image,  simply  enter 
the  module  name  $SHORT  as  shown  in  the  following  sample  TKB  command 
string: 

TKB>TRANS , TRANS=TRANS ,[1,11 SYSLIB/LB : $SHORT 

In  this  example  [l,l]SySLIB  is  the  file  specification  for  the  system 
object  library  containing  the  FORTRAN  IV  OTS. 


F.5   BLIHINATIIIG  REDUNDANT  SYSTEM  LIBRARY  CODE 

Programs  that  perform  both  sequential  and  random  I/O  operations  always 
cause  the  softwaro  to  load  dynamically,  via  I/O  calls,  both  the 
sequential  I/O  routines  (GETSQ  and/or  PUTSQ)  and  the  random  I/O 
routines  (GET  and/or  PUT).  The  random  routines,  although  longer  than 
their  sequential  counterparts,  contain  all  of  the  features  of  the 
sequential  routines  and  can,  in  fact,  process  sequential  files.  Thus 
any  object  program  performing  both  types  of  I/O  contains  functionally 
redundant  code. 

To  exclude  the  sequential  routines,  insert  the  following  module, 
written  in  MACRO,  in  the  root  segment  of  the  user  task.  This  module 
eliminates  the  unnecessary  sequential  I/O  routines  by  simply  passing 
control  from  the  entry  points.   GETSQ/. PUTSQ  to  .GET/. PUT: 


• 


.GETSQ: :JMP 
.r'lTSQ:  :JMP 


.GET  ;PASS  CONTROL  TO  .GET 
.WIT  ;PASS  CONTROL  TO  .PUT 
.END 
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Prom  time  to  time  problems  and  errors  might  be  encountered  in  the  use 
of  the  FORTRAN  IV  Compil'  ^  or  Object-Time  System.  These  should  be 
communicated  to  DIGITAL  Equipment  Corporation  by  means  of  a  Software 
Performance  Report  (SPR) .  Software  Performance  Report  forms  may  be 
obtained  f''ora  the  nearest  SPR  cent'  r  . 

Software  Performance  Reports  should  be  submitted  to  the  nearest  SPR 
center.  Software  Support  Specialists  n  each  DIGITAL  office  receive 
regular  reports  on  software  problems  and  will  in  many  cases  be  able  to 
provide  software  patches  to  correct  the  problem  and  an  alternate 
programming  technique  for  temporarily  avoiding  the  problem. 

Every  SPR  is  acknowledged  upon  receipt,  and  answered  in  writing.  SPRs: 
of  general  interest  are  published  so  that  other  customers  may  benefit. 


In  preparing  a  Software  Performance  Report,  the 
are  recommended: 


following   guidelines 


1.  It  is  most  important  that  you  send  a  copy  of  your  program  on 
a  machine-readable  medium. 

2.  Give  as  complete  a  description  as  possible  of  the  problem 
encountered.  Often  a  detail  that  may  seem  irrelevant  will 
give  a  clue  to  solving  the  problem. 

3.  If  possible,  isolate  the  problem  to  a  small  example.  Large, 
unfamiliar  programs  are  difficult  to  work  with  and  may  result 
in  a  misunderstanding  of  what  the  problem  is  or  an  inability 
to  duplicate  the  problem. 

4.  Include  console  samples,  listings,  compiler  output,  link 
maps,  and  so  on  with  the  SPR.  Annotations  showing  where  the 
error  occurred  are  extremely  helpful. 

5.  If  a  program  reads  input  data,  include  sample  input  listings 
and,  if  possible,  sample  output. 

(.  If  an  error  example  cannot  be  isolated  to  a  single  program 
unit,  include  listings,  and  sc  forth,  on  all  program  units 
involved. 

7,  For  fatal  compiler  errors,  re-create  the  error  with  the  /LI:7 
switch  specified  in  the  compiler  command  string.  Include  all 
compiler  output. 

Experience  shows  that  as  many  as  one-third  of  all  SPRs  do  not  contain 
sufficient  information  to  duplicate  the  problem.  Complete  and  concise 
information  will  help  DIGITAL  give  accurate  and  timely  service  to 
software  problems. 
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ABORT  command,  1-12 
ACCEPT  statement,  2-18 
Accessing, 

a  shared  file,  2-21 

a  shared  library,  1-11, 
ACTFIL  command,  F-1 

Tasi  Builder  option,  1-9, 
2-17 
Address,  null  arguments,  2-10 
Allocating , 

buffer  space,  1-10 

file  storage,  2-19 
$SAOTS,  2-16 

see  also  OTS 
Argument  errors,  table  of,  C-24 
Argument  lists,  example  of,  2-10 
Arguments, 

null,  2-10 
Arguments  to  ASSIGN,  B-2 

see  also  ASSIGN 
Arithmetic  errors,  table  of, 

C-24 
Arrays , 

memory  a.id,  2-12,  2-13,  2-14 

multi-dimensional,  2-12,  4-2 

passed  to  subprograms,  2-13 

process  words  from,  E-1 

specification  in  DATE,  B-3 

use  of,  4-2,  4-3 

vector  table  space, 
minimizing,  4-2 

vectoring,  2-12,  2-13 

illustration  of,  2-13 
ASCII/Radix-50  equivalents,  A-5 
ASG  Task  Builder  option,  1-9 
ASSIGN,  2-17,  B-2 

arguments  to,  B-2 

call  to,  B-2 

default  values,  B-2 

subroutine,  B-2 

task  builder  option, 
1-9 
Assigned  GOTO,  use  of. 
Auxiliary  I/O  operations,  2-20 
At  sign  (?)  used  with  indirect 
file,  1-2 


BACKSPACE  statement,  2-20 

Bit  string  manipulations,  E-1 

Blank  COMMON,  section  name,  2-15 

Block,  COMMON,  2-15 

BLOCK  DATA  statement,  3-1 ^  3-2 

Bounds,  array,  2-13 

passing  to  subprogram,  2-13 
Buffer  space,  allocating,  1-10 
Euilding  the  task  image,  1-6 

see  also  Task  Builder 


(ASG) , 
4-4 


Calculation, 

in  INTEGER  mode,  4-5 

in  REAL  mode,  4-5 

within  loops,  4-5 
CALL  EXIT  statement,  1-12 
CALL  FD^^ET  statement,  2-19 
Call  Site,  2-10 

format,  2-10 
Cal ling, 

a  subprogram,  2-11 

sequence  convention,  2-10 
example  of,  2-10 
Changing  default  device 

assignments,  2-17 
Changing  filename  assignments, 

2-17 
Character  set,  Radix-50,  A-4 
CLOSE  subroutine,  B-1,  B-3 

device  assignment,  2-17 

format,  B-3 

implicit,  B-3 
Combining  list  options,  1-6 
Command , 

ABORT,  1-12 

ACTFIL,  F-1 

PDS,  1-14 

TKB,  1-6 

UNITS=,  F-1 
Command  file, 

indirect,  1-2 

example  of,  1-13,  1-14 
Command  line, 

FORTRAN  IV,  1-4 

specifying,  1-2 
Command  sequence,  example  of, 
1-13 

FORTRAN  IV,  1-13 
Command  string.  Task  Builder, 

1-6 
COMMON  BLOCK,  2-15 

shared,  1-9 
COMMON  Task  Builder  option,  1-9, 
Common  variables,  initialization 

of,  3-2 
Compatibility  issues,  PDP-11, 

D-1 
Compilation,  1-1 

example  of,  1-13 

increasing  effectiveness  of, 
4-3 

switche   to  conserve  space, 
4-4 

switches  to  speed  execution, 
4-4 
Compiled  code  PSECT,  2-14 
Compiler,  1-1 

default  file  types,  1-3 

errors, 

diagnostics,  C-1 
fatal,  C-12 
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Compiler  (Cont.) 

initial  phase,  C-2 
secondary  phases,  C-4 
memory  requirements,  1-5 
.  minimum  memory,  1-5 
options,  see  Switches 
switches,  1-4,  1-5 

see  also  Switch 
us  ng  the,  1-3 

Complex  data  format,  A-3 
Continuation 

line,  3-1 
Control,  -:^; 

bits,  C-14,  C-15 

returned  to  calling  program, 
2-11 
Control  bit  settings, 

table  of,  C-17 
Control  key,  viii 
Conventions , 

documentation,  viil 

register  usage,  2-11 


Data , 

representation  of,  A-1 
t'  ..e,  selection  of,  4-3 
DATJ  subroutine,  B-1,  P-3 

format  if,  B-3 
/DE  switch,  1-14 

compile,  1-4 
Debunging  FORTRAN- IV,  1-14 
Default , 

device,  1-2 

assignment,  2-17 
changing,  2-17 
file  type,  1-3 
compiler,  1-3 
Task  Builder,  1-6 
filename  assignment,  2-17 
logica'  units,  1-11 
assignments,  2-17 
OTS  buffer  site,  1-9 
spool,  1-8 
switches,  1-4,  1-5 
UlC,  1-2 

version  number,  1-3 
Def  ini;.tv  .IS,  global  system,  1-7 

default,  1-2 

assignment ,  2-17 
opening  a,  2-19 
taol*  of  2-17 
$$DEVT,  2-lo 
•it*   :,  2-16 
■••  also  OTS 
Diagnostics. 

•xample  of,  C-2 
listing,  1-S 

generated  code,  l-% 
source  program,  1-5 
storage  isap,  1-% 
•ce  also  Brror,  diaqnosticr 


DIMENSION  Statement,  2-7,  2-8,  2-14 
;oriverting  fron.  DIMENSION  to 

VIRTUAL,  2-7 

example  of  conversion,  2-8 
Division  within  progiams,  4-5 
DO  loops,  nesting  of,  4-5 
Documentation  conventions,  viii 
rouble-precision  format,  A-2 
Doubling  operations,  4-''i 


/EA  switch,  1-8 

EAE,  compiler  option  twitch, 

2-2,  2-4 
EIS,  compiler  option  switch, 

2-2,  2-4 
Element  transmission  errors, 

table  of,  C-21 
Ellipsis  marks,  viii 
END  statement,  3-1 
ENDFILE  statement,  2-20 
EO'dlVALENCE  Statement,  4-1 
Equivalents,  ASCI  I /rad i x-50 ,  A-5 
Error , 

compi ler , 

ipitial  phase,  C-2 
secondary  phase,  C-'. 
detection,  inline  code,  2-5 
diagnost  ics 
compiler,  C-1 
fatal,  :-12 
generated  rode  listing,  1-4 

1-5 
list  of,  C-4 
source  listing,  1-' 
storage  map  listt  .q ,  1-5 
warning,  C-12 
message  file, 
format,  C-1 
full,  F-1 
OTS  format,  C-15 
short,  C-17,  F-1,  F-2 
number , 

printing  of,  C-16 
OTS,  C-15,  C-16,  C-24 
processing,  C-14,  C-24 
return  codes,  B-5 
table  of , 

argument,  C-22 
arithmetic,  C-22 
cont  ol  bit  settings,  C-17 
diagnostics,  C-2,  C-4 
element  transmission,  C-21 
fatal  codes,  C-12 
input/output,  C-19 
mesaagea,  C-1 8 
mlacel laneous ,  C-24 
severe,  C-18 
system  directive,  C-24 
ERRSET  subroutine,  B-1,  B-4, 
C-14 
format,  B-4 
ERRSNS  subroutine,  B-1,  B-5,  C-14 
format,  B-5 
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ERRTST  subroutin«»,  B-1,  B-6 
C-14 

format,  B-6 
/EX  switch,  1-4 

default,  1-4 
Execution , 

continuing,  1-12 

example  of,  1-12 

initiating,  1-12 

minimizing  time,  4-1 

suspending,  1-12 

task,  1-1,  1-12 

task  image,  1-6 
EXIT  subroutine,  B-1,  B-6 

format,  B-6 
Extended  arithmetic,  1-8 
EXTERNAL  statement,  B-7 


diagnost  ics 
Services,  2- 


19, 


B-5 


B-5 
1,  B- 


FATAL  ERROR,  1-5 

see  also  Error  , 
PCS,  File  Control 
2-20 

error  return  codes, 

use  of,  2-i.6 
FDB,  File  Descriptor  Blov,.», 
FDBDET  subroutines,  2-19,  B 

format,  B-7 
FllACP,  File  Control  Primitives, 

2-20 
FIND  statement,  2-20 
Pile, 

accessing  a  shared,  2-21 

formatted   nput/output,  2-19 

input,   -6 

open  conventions,  2-19 

opened  for  append,  2-19 

opening  a,  2-19 

output,  1-2 

sharing,  2-20 

short  message,  C-16 

storage,  2-19 

task  image,  1-6,  1-7 

version  number,  1-3 
Pile  Control  Primitives,  FllACP, 

2-20 
Pile  Control  Ser'  ices, 

FCS 
Pile  Descriptor  Block, 
Pile  specification, 

format,  1-2 

indirect , . 1-2 
Pile  type,-  1-2 

compiler  defult,  1-3 

default,  1-3,  1-6 

length,  1-3 

Task  Builder  default 
Filename  assignments, 

changing,  i    17 

default,  2-1/ 

length,  1-2 
?IS,  compiler  option  switch, 
2-4 


see  also 
FDB,  B-5 


l-f 


1-8,  1-10, 


2-10,  2-11 
13 


i-2. 


Fixed  l3ngth  records,  2-19,  1-2 

see  also  Records 
"Flag"  variables,  testing,  4  I 
I loating-poiPt , 

fornat,  A-l 

/Pr  switch,  1-8 

renisters,  2-11 
FMTBUF, 

Task  Builder   ption, 
2-16 
FORMAT  statements,  4-3 
FORTRAN  COMMON,  2-15 

initial i zing ,  3-2 

storage,  2-15 
FORTRAN  TV, 

calling  subprograms, 

command  line,  1-4 

command  sequence,  1- 

compatibility,  D-l 

compiler,  1-3 

debugging,  1-14 

library  usage,  l-ll 

logical  operators,  E-l 

programming  tips,  F-l 

sequence  of  calls,  2-10 

using  the  system,  l-l 
/FP  switch,  1-8 
Function, 

RAD50,  E-8 

RAN,  B-IO 

SECNDS,  B-10 
FUNCTION  statement,  2-22,  3-1 


General  input/output  errors, 

table  of ,  C-19 
General  purpose  registers,  2-11 
GETSR  macro,  2-19 
Global  symbol , 

definitions,  1-6,  1-7 

references  to,  1-6 
GOTO  statement,  4-3 


Hardware  required  for  inline  code, 
2-2,  2-4 

Hollerith  format,  A-3 


/ID,  identification,  1-4 

default,  1-4 

switch,  1-4 
IDATE  subroutine,  B-l,  B-4 

format,  B-4 
/I4,  2Tword  integer,  1-4,  4-4 

default,  1-4 

•witch,  1-4,  A-l 
Implied  unit  numbers,  table  of, 

2-18 
Increment  parameter,  use  of,  4-4 
Indirect  command  file,  1-2 

•  Kaaiple  of,  1-13 
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Indiret  file  specifications,  1-2, 

1-13 
In-line  code,  2-2,  2-3,  2-4,  2-5 
Input  file,  1-6 
Instruction  sequence,  references 

to  library,  2-2 
INTEGER  mode, 

calculation  in,  4-5 

format,  A-1 
Internal  Sequence  Numbers,  ISN, 

1-5 
I/O  operations, 

auxiliary,  2-20 

errors,  C-18 

formatted  files,  2-19 

supported  by  device  type,  2-18 
IRAD50,  B-1,  B-9 

format,  B-9 

function,  B-9 

subroutine,  B-9 


/LB  Object  module  library,  1-8 

1-11 
/LI  listing  options,  1-4 
LIBR  Task  Builder  option,  1-8, 

1-10,  1-11 
Library, 

access  to  shared,  1-11 

constructing  relocatable,  1-11 

FCSRES,  syster,,  1-11 

instruction  sequence,  2-2 

linking  system  shared,  1-11 

mnemonics,  2-2 

OTS,  2-17,  k  22 

relocatable,  1-11,  1-12 

routine  names,  2-2 

routine  usage,  2-2 

shared,  1-11,  2-20 

specifying  relocatable,  1-12 

subroutines ,  B  1 

system  relocatable,  1-11 

usage,  1-11 

user,  1-12 
Library  FCSRES  system,  1-11 
Library  SYSLIB  system  shared, 

l-ll 
Linking, 

examples  of,  1-13 

see  also  Task  Builder 
Listing, 

combining  options,  1-5 

diagnostics,  1-5,  C-4 
warning,  C-11 

file,  omif-ing,  1-4 

format,  1-2 

generated  code,  1-5 

source  program,  1-5 

storage  map,  2-3 
Logical  device  assignments, 

table  of,  2-17 
LOGICAL  format,  A-4 
LOGICAL*!  format,  A-3 


Logical  operations,  FORTRAN,  E-1 
Logical  unit, 

assignments,  2-17 

default,  1-11,  2-17 

numbers,  2-17 

assigning,  1-9,  1-11 
Loops,  calculations,  within,  4-5 


Macro, 

GET$R,  2-19 

GET$S,  2-19 

PUT$R,  2-19 

PUT$S,  2-19 
Macro  routines  and  OTS,  i-7 
Mapping  function,  2-13 
MAXBUF,  Task  Builder  option, 

1-8,  1-0 
Memory  allocation  map.  2-3 
Memory  requirements,  compiler, 

1-5 
Mixed  record  im'ge,  2-21 
Mode, 

short  floating,  2-11 

short  iriteger,  2-11 
/MP,  overlay  description,  1-8 
Mult ibuf f er ing,  1-7 
Multi-dimensional  arrays,  2-13, 

usage,  4-2 

see  also  Array 


Nesting  of  DO  loops,  4-5 
/NOSN  switch,  2-22,  4-4,  F-1 
/NOVA  switch,  2-13,  4-4 
/NOWR  switch,  3-2,  C-12 
Null  arguments. 

address,  2-10 

representing,  2-10 


$$0BF1,  2-16 

size  of,  2-16 

see  also  OTS 
Object  code,  2-1 

example  of,  2-3 
Object  modules,  1-6,  1-7 

relocatable,  1-3 
Object  program,  efficiency  of, 

4-1 
Object  Time  System,  see  OTS 
ODT  debugging  aid,  1-4 

see  also  Overlay  facility 
Operations , 

doubling,  4-4 

squaring,  4-4 
Opt  imizer , 

efficient  use  of,  4-1 
Options,  compiler,  table  of,  1-4, 
1-5 

8«e  also  Switch,  compiler 
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Options,  RSX,  Task  Builder,  1-8 
OTS,  Object  Time  System,  1-1,  1-7 
1-9,  1-11,  2-1,  2-2 
buffer  default  size,  1-9 
composition  of,  2-1 
errors,  C-13,  C-16 
message  format,  C-16 
reports,  C-24 
/FCS  record  transactions,  2-19 
FPU  status  bits,  2-11 
in  a  separate  library,  1-11 
library,  2-16,  2-21 
module  names  and  global 

symbols,  2-21       fvi 
modules , 

organization  of  library,  2-16 
$SAOTS,  2-16 
$$DEVT,  2-16 
$$0BF1,  2-16 
i?0TV,  21-4 
PSECT  usage,  2-14,  2-15,  2-16 
$OTV,  OTS  module,  2-16,  2-21 

see  also  OTS 
Output  file,  1-3 
omitting  1-3 
specifying,  1-3 
Overlay  facility.  Task  Builder, 
1-12 


PAUSE  .Statement,  1-12 

PDP-11  FORTRAN-77  compatibility 

issues,  D-1 
Physical  device  unit,  1-2 
PIC,  Position  Independent  Code, 

2-21 
PRINT  statement,  2-18 
Processor-Defined  Functions, 
2-5,  2-6 

global  reference  to,  2-6 

user  routine,  2-6 
Program  section,  see  PSECT 
Programming  methods, 

FORTRAN  IV  tips,  F-1 

techniques,  4-1 
Prompting  convention,  viii 
PSECT,  program  section,  2~li 

attributes,  2-14 

compiled  code,  2-14 

compiler  organization  of,  2-15 

OTS  usage,  2-16 

OTS  organization  of,  2-16 

overlay,  2-14 
PUT$R  macro,  2-19 
PUT$S  macro,  2-19 


RAD50  function,  B-1,   B-8 

format,  B-8 
Radix-50, 

ASCII  equivalents,  A-5 

character  set,  A-4 

format,  A-4 


RAN  function,  B-1,  B-10 

usage,  B-10 
RANDU  subroutine,  B-1,  B-10 
READ  statement,  2-18,  2-19,  2-20 

formatted,  2-18 
REAL  mooe, 

calculation  in,  4-5 

format,  A-? 
REASSIGN  statement,  2-17 
Records , 

fixed  If-ngLn,  2-19,  3-2 

maximum  sixe,  1-10 

transactions , 
OTS/FCS,  2-19 

unformatted,  2-19 

variable  length,  2-19,  3-2 
Registers , 

floating-point,  2-11 

general  purpose,  2-11 

usage,  2-11 
Relocatable  libraries,  1-11 

constructing,  1-11 

specifying,  1-11 

storage,  1-11 

system,  1-11 

see  also  Library 
Relocatable  object  modules,  1-3 
Resident  common  blocks, 

references  to,  1-6 
<  CR  >  RETURN  key,  viii 
Return  value  convention, 

table  of,  2-12 

transmission,  2-12 
REWIND  statement,  2-20 
R50ASC  subprogram,  B-1,  B-9 

format,  B-9 
Routine  names,  library,  2-2 

usage,  2-2 
RSX, 

/LB  switch,  1-6 

RESUME  command,  1-12 

switch  options,  1-4,  1-5 

Task  Builder  options,  1-8 

task  termination,  1-12 
RSX-llM  command  line,  1-2 
RSX-llM-PLUS  command  line,  1-2 
RUN  command,  task  execution, 
1-12 


SECNDG  function,  B-1,  B-10 
Sequential  formatted  output, 

2-18 
Severe  errors,  table  of,  C-18 
Shared  common  block,  1-19 
Shared  file,  accessing,  2-21 
Shared  library,  1-11,  2-20,  2-21 

access  to,  1-11 

linking,  1-11 

location,  1-11 

reference  to,  1-11 

restrictions,  2-21 

see  also  Library 
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F-1 


Report,  G-1 


Shared  region, 

linking  to,  2-21 
Shift  operations,  E-1 
Short  floating  moc  ,  2-11 
nhort  integer  mode,  2-11 
Short  message  file,  C-16, 
/SN  switch,  default,  1-5 

see  also  Switches 
Software  Performance 
Source  listing,  1-4 
Source  program,  1-4 

diagnostics,  1-4 
/SP  switch,  automatic  spooling, 
1-5 

listing  file,  1-5 
Spool  default,  1-8 
Squaring  operations,  4-4 
Standard  peripheral  devices, 

table  of,  2-18 
Statement , 

ACCEPT,  2-18 

ASSIGN,  2-17 

BACKSPACE,  2-20 

BLOCK  DATA,  3-1 ,  3-2 

CALL  EXIT,  1-1. 

CALL  FD3SET,  2-19 

CLOSE,  2-17 

DEFINE  FILE,  3-2 

END,  3-1 

ENDFILE,  2-20 

EQUIVALENCE,  4-1 

EXTERNAL,  B-7 

FIND,  2-20 

FORMAT,  4-3 

FUNCTION,  2-22,  3-1 

GOTO,  4-3 

PAUSE,  1-12 

PRINT,  2-18 

READ,  2-18,  2-19,  2-20 
formatted,  2-19 

REASSI*^'   2-17 

REWINl    -20 

STOP,  i-12,  B-6 

SUBROUTINE,  3-1 

TYPE,  2-18 

WRITE,  2-18,  2-19 
Statement  ordering, 

or,  3-1 
STOP  statement,  1-12 
Storage, 

allocating  file,  2-19 

FORTRAN  COMMON,  2-15 
Subprogram, 

calling  a,  2-6 

R50ASC,  B-1,  B-9 
Subroutine, 

ASSIGi.',  B-2 

CLOSt,  B-3 

DnTE,  B-3 

ERr<SET,  B-4,  C-13, 

ERRSNS,  B-5,  C-13 

EKPTST,  C-14 

EXIT.  B-6 


restr  ictions 


B-6 


C-14 


Subroutine,  (Cont.) 

FDBSET,  B-7 

IDATE,  B-4 

IRAD50,  B-9 

RANDU,  B-10 

TIME,  B-11 

USEREX,  B-7 
SUBROUTINE  Statement,  3-1 
Subroutines,  library,  B-1 

summary,  B-1 
Switch , 

compiler,  1-4,  1-5 

to  conserve  space,  4-4 
to  speed  execution,  4-4 

Task  Builder,  1-6,  1-7,  1-8, 
1-9,  1-10 
Switch  action, 

negating,  1-7 
Switch  default,  1-4,  1-5 
Switch  options,  RSX,  1-4 
Switch  specifications,  example 

of,  1-4 
Switch  values,  negating,  1-7 
Swi  tches , 

/DE  compile,  1-4,  1-14 

/EA  extended  arithmetic,  1-8 

/EX  input  line,  1-4 

/FP  floating  point,  1-8 

/ID  identification,  1-4 

/I4  integer,  1-4,  4-4,  A-1 

/LB  library,  1-8,  1-11 

/LI  listing,  1-4 

/MP  overlay,  1-8 

/NOSN,  no  ISN,  1-5,  2-22, 
4-4,  F-1 

/NOVA  no  vectoring,  2-13, 
4-4 

/NOWR  no  warnings,  3-2,  C-11 

/SH  short  map,  1-8 

/SN  sequence  numbers,  1-5,  4-4 

/SP  spooling,  1-5 

/VA  vector,  1-5,  4-4 

/WR  warnings,  1-5 
Synchronous  traps,  C-24 
Syntax  errors,  common  causes  of, 

C-2 
SYSLIB.OLB,  1-11 
System  common,  2-15 
System  libraries,  SYSLIB,  1-11 
System  relocatable  library,  1-11 
System  shared  library, 

FCSRES,  1-11,  2- 

linking,  1-11 


Task , 

ABORT  command,  1-12 
execution,  1-1,  1-12 
termination,  1-12 

Task  Builder,  1-1 

AC'j'FIL  command,  1-9, 
building  task  image, 
command  siting,  1-6 


2-17 
1-6 
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Task  Builder,  (Cont.) 

default  file  types,  1-6 

invoking,  1-6 

linking,  1-6 

overlay  facility,  1-12 

switches,  1-7,  1-8,  1-9, 

1-11 
using  the,  1-6 
Task  Builder  options,  1-9 
ACTFIL,  1-8,  1-9,  F-1 
ASG,  1-8,  1-9 


1-10, 


1-8,  1-9 


COMMON,  J.-0, 
entering,  1-8 
exiting,  1-8 


exiting,  _  . 

1-8,  1-10 

1-11 


c»  X  \.  X  iiy  ,  i.-  o 
FMTBUF,  1-8,  1-10 
LIB    1-8,  1-10,  ] 
MAXBUF,  1-8,  1-10 
specifying,  1-8 
UNITS,  1-8,  1-11,  2-16 
Task  image,  1-6 

building,  1-6,  1-7 
example,  1-6 


example,  l-o 
execution,  1-12 
file,  1-7 
reducing  size  of. 


i-  X  le  ,  X-  I 

reducing    size   of, 
ireaded    code,    2-1,    2-2 


F-1 


2-4 

B-11 


teauci 
Threaded 

2-5 
TIME  subroutine,  B-2,  ^■ 

format,  B-11 
TKB>  command,  1-6,  1-7 
Traceback  feature,  2-22 
TRAP, 

instruction,  C-24 

synchronous,  C-24 
TYPE  statement,  2-9 


UFD,  User  File  Directory,  1-2 
UIC,  User  Identification  Code, 
1-2 

default,  1-2 
Unformatted  record^  2-19 

see  also  Records 
Unit  numbers, 

for  I/O  statements,  2-'"' 

table  of  impliec",  2-lf 
UNITS, 

Task  builder  option,    3,  1-11, 
2-16 


UNITS=  command,  F-1 
Up-arrow,  viii 

User  File  Directory,  UFD,  1-2 
User  Identification  Code, 

UIC,  1-2 
User  Libraries,  1-12 

see  also  Library 
USEREX  subroutine,  B-1,  B-7 

format,  B-7 


/VA,  vectoring,  1-5,  4-4 

default,  1-5 
Variable  length  records,  2-19 
Variable  names,  length  of,  3-2 
Variables, 

initialization  of  common,  3-2 

testing  "tlag",  4-3 
Vector  tables, 

minimizing  space,  4-2 

sharing,  4-2 
Vectors,  shareable,  2-14 
Vectoring, 

array,  2-12,  2-13 

disabling,  4-4 

memory  required  for,  2-13 

sharing  vector  tables,  2-1'j 

/VA  switch,  1-5 
Version  number 

default,  1-3 

file,  1-3 
VIRTUAL  arrays,  2-6,  2-7 

converting  from  DIMENSION,  2-7 

example  of  conversion,  2-8, 
2-<»,  2-10 

memory  allocation  to,  2-6,  2-7 


Warning  diagnostics,  /WR,  1-5 

listing  of,  C-11 

see  also  Error 
/WR, 

default,  1-5 

warning  diagnostics,  1-5 
WRITE  statement,  2-J8,  2-19 


Index-? 


BMl. 


RSX.  VAXA'MS  FORTRAN  IV 

User's  Guide 

AA-R955A-TK 


READER'S  COMMENTS 


NOTE:  This  form  is  for  document  comments  only.  DIGITAL  will  use  comments  submitted  on  this  form  at  the 
company's  discretion.  If  you  require  a  written  reply  and  are  eligible  to  receive  one  under  Software 
Performance  Report  (SPR)  service,  submit  your  comments  on  an  SPR  form. 


Did  you  find  this  manual  understandable,  usable,  and  well  organized?  Please  make  suggestions  for  improvement. 


• 


Did  you  Hnd  errors  in  this  manual?  If  so,  specify  the  error  and  the  page  number. 


• 


Please  indicate  the  type-  of  user/reader  that  you  most  nearly  represent. 

G  Ar.sembly  language  pn>grammer 

G  Higher-level  lt>nguage  programmer 

G  Occasional  pmgrammer  (experienced) 

G  User  with  little  programming  expt^nence 

[il  Student  programmer 

[1  Other  (please  specify) 


Name. 


Dm* 


Organization 

Street     

City 


State . 


.  Zip  Code  - 
or  C«  untry 


—    —    —    Do  Nol  Tear  •  Fold  Heir  aad  Tape 


No  Posuge 

Necessary 

if  Mailed  in  the 

United  States 


BUSINESS  REPLY  MAIL 

FIRST  CLASS  PERMIT  N0.33  MAYNARO  1«ASS. 


POSTAGE  WILL  BE  PAID  BY  ADDRESSEE 


BSSG  PUBLICATIONS  ZK1-3/J35 
DtGITAL  EQUIPMENT  CORPORATION 
110  SPIT  BROOK  ROAO 
NASHUA.  NEW  HAMPSHIRE  03001 


—    —    —    Do  Nn«  Tew    FoM  Hew 


m 


J 


1 
I 


to 


I 
I 
t 

r 


